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EXTRA VEEL LISTINGS EN 
SOFTWARE RECENSIES! 





Time Soft is ook een winkel. 

Veel mensen blijken nog niet te tueten dat Time Soft niet 
alleen een postorder-hedri f is, maar ook een ioinkel, 
liiilt u verzendkosten besparen of de software eerst 
gedemonstreerd zien, dan kunt u gemoon langskomen, 
De openingstijden zijn: 

maandag 13,88 - 18,88 yur 

dinsdag, woensdag en vrijdag 18,88 - 18.88 uur 

donderdag ,11,1, „lïXXX,,,,,,,, 3,II,( IXIZMI.I Jl XIXIXIIIIXIX:, 1,1*,,,, 18,88 - 21.88 uur 

zaterdag 18.88 - 17.88 uur 



HSX aanbiedingen 

Trantor ............ s %15 

Venom strikes back ..».....».......„..»„„.,..,..„„„.,..,..„...„„....„.,.„ %% 

Nasters of the Univers %% 

Spitfire 48 .............................. 

Vortex Raider Vfi 



H3X-2 aanbiedng 

T.N.T, High Resolution arcade programma van infogrames 
Ge weet mei van L'Rf faire en Kinderen van de IDindX 
Vecht je als commando een üieg door moerassen, jungles 
en terreinen, 

Uitsluitend MSK-2 diskette !« 

Normaal: .,„,..„.„,.,... .„.„.,.,..,..».,.,„„..„,„„.,,„„....„,...„„...., 8%5B 

NU .„ ___^/B 



Sorry 

In onze vorige advertentie is een foutje geslopen bij de 
rijs voor de 38 MSH Hits op 3 diskettes. 
Ie prijs van deze verzameling is f, 6%%, De prijs voor 
de 6 cassettes stond gelukkiq mei goed vermeid (4*1,18). 
Onze excuses yoor deze fouf! 



E 



Stofhoezen 



8245 
8288 



Phiiips 8828 - 8228 
Philips 8238 - 8235 
Phiiips 8258 - 8255 
Philips 8818 

Philips printer 8838 - H21 - 1431 - 1436 
Philips 12" monitor (monochroom) 

Philips 14" monitor (kleur) 

Sony 201 .... 
Sonu 588 - 788 - 188 

Sony 55 - 75 - 1P 

Spectravideo 728 
Spectravideo 738 X'press 
Toshiba HK1B 
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11,15 
18,15 
13,15 
11,58 
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11.58 
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14,15 
1815 



voor andere modellen zie de gratis prijslijst, 

MSX Hodems 

Belukkiq nog steeds leverbaar: 

Philips NMSi255 modem, compleet met Nederlandse handlei- 
ding en sottuiare. Geheel gebruiksklaar !!! 

141,80 
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Inktlinten 



Boeken 



Behalve softmare en boeken, levert Time Soft ook linten 
voor printers, bijvoorbeeld; 

Lint voer Philips VUJBB3B. NMSH2I. NMSN31. NMSW35 en 
NNSI436 

.......... ..... 18.15 



Time Soft verkoopt ook boeken. Bijvoorbeeld: 
Het Grote Peeks, Pokes en Truuks Boek, met speeitips 
en maps yoor meer dan 38 programma's, uiaaronoer veel 
van Konami. 

■■iii.f.ta*,t««<, «.«««>, i. ia, 13, 75 



Inspecteur 2 

Cartridge voor MSX-1 en MSH-2 ; ook bekend als Buil and 
Mightu's slim change. 

Een platform-spel van HBL <voora! bekend van Eggerland 
en Rolerball. 

Normale prijs 7%5B, NU .„.. „..,...,„_,.,.«.«»„ ..»„A\<\5 



BE3TELUN6EN EN INLICHTINGEN: 
6559393 



TIME SOFT 

Beukenmeq 7 
1812 ffi Amsterdam 



Bestellingen beneden f . 108,= worden verhoogd Net f . 5,öï verzendkosten. 
Re*ÉK3ursesenten (betalen aan de postbode) worden altijd verhoogd net f . 18, 
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Eindelijk netjes. 

Eindelijk ziet de MSH Gids er wat netter uit. Wij zijn overgeschakeld op een nieuwe 
PC (van Philips, met harddisk) en een HP Desk Jet printer. Ook hebben we het DTP 
programma Ventura aangeschaft (naar aanleiding van een artikel in PC-World) maar 
-in tegenstelling tot wat in PC-World werd beweerd- werkt dit programma niet met 
deze printer, zodat we nog steeds met Fontasg werken en nog niet helemaal het 
maximum uit de printer kunnen halen. Maar goed, al met al een hele verbetering. 

Meer* listings. 

Zo tegen de feestdagen hebben we maar weer eens wat meer kleinere listings 
geplaatst. De 'Mouse serie' is afgelopen en we brengen nu ook wat programma's 
apart uit öp disk en cassette, zodat we in de toekomst wat vaker kleinere listings 
in ons blad zullen gaan tegenkomen. Uiteraard kunnen we nu vrijwel alle goede 
programma's aanbieden en hoeven we minder software terug te sturen naar de 
makers. 

M eer software recensies. 

Wij zijn in zee gegaan met de firma Timesoft uit Amsterdam en het ziet ernaar uit 
dat we nu wat meer MSH- software en informatie kunnen gaan brengen gezien het 
enthousiasme en de inzet van deze mensen. In dit nummer hebben we in ieder geval 
al heel wat leuke programma's kunnen beschrijven. 

MSM DOE DAG 

Ondanks het feit dat onze Gids nog een van de weinige echt 1G0% MSH bladen is zijn 
wij over deze grote landelijke MSH dag veel te laat -en slechts summier- 
geinformeerd zodat dit evenement in onze vorige uitgave nauwelijks aandacht heeft 
gekregen. Heel jammer, dit had -volgens ons- toch echt wel wat beter gekund. 

Een zeer kort bezoekje aan deze beurs kon er nog net vanaf en zo konden we zien 
dat het hier om een flinke beurs ging en dat de standhouders niet te klagen 
hadden over de belangstelling. Wel konden we weinig nieuws vinden. Geen nieuwe DOS 
en geen harddisk. De stunt met de NMS8B50 voor FL. 599,= leek leuk, totdat we er 
een wilden meenemen. De machine was niet op de beurs aanwezig. Het enige echte 
nieuws kwam van Filosoft, die een enorme belangstelling had voor het programma 
Freekick dat op deze dag werd geintroduceerd. Een schitterende aanwinst voor de 
MSH-S! 

Zeer veel MSH-clubs en gebruikersgroepen waren aanwezig waarmee maar weer eens 
duidelijk werd dat de MSH nog volop in de belangstelling staat en nog lang niet 
'dood' is. 

MINI GIDSEN en SPELTIPS 

In deze uitgave zijn niet alle advertenties, poke's en tips geplaatst daar wij extra 
vroeg onze copy bij de drukker moesten inleveren i.v.m. onze vakantie. Wat we nog 
hebben liggen komt in de volgende Gids. 

Software Cen-fcme Lelystad 

In onze eigen polder en nog wel in onze fraaie hoofdstad ver onder de zeespiegel 
(hopelijk komt hier nooit een tropische orkaan langs), krijgen we een nieuwe 
software winkel. Deze zaak is dan wel geen echte MSH- shop, maar gaat toch veel 
MSH- software en suppiies leveren. Dit bespaart veel MSH-ers weer een ritje naar 
Amsterdam. 

Vireemcle -fc.i-fc.els 

Regelmatig kom ik bij het verwerken van de speltips en de minigidsjes titels van 
software tegen die mij geheel onbekend zijn. Ik noem er een paar: Magical Wizz Kid, 
Goonies II, Twinbee en Darodius Cer zijn er vast nog meer te bedenken). Wie stuurt 
eens een kopietje, zodat ik deze spellen kan bekijken? Uiteraard wordt het schijfje 
retour gestuurd en worden de verzendkosten vergoed. 

Groetjes. Alfred 



Era alvast prettige Feestdagen. 
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INLEIDING 

Een groot voordeel van MSH2 ten opzichte 
van MSK1 is het feit dat de grafische mo- 
gelijkheden veel groter zijn. Vooral wat 
betreft de resolutie en het aantal te ge- 
bruiken kleuren is MSK2 een hele vooruit- 
gang. Ook de nieuwe COPY- en SETPAGE- 
statements dragen een steentje bij. Met 
deze opdrachten is het mogelijk om snel 
beelden te copieren, te spiegelen en nog 
veel meer. Dit programma maakt gebruik 
van deze MSH2-mogelijkheden. Er wordt, 
zoals de naam MOUSE 8 al doet vermoeden, 
gebruik gemaakt van SCREEN 8. Deze 
schermmode heeft een resolutie van 
256x212 beeldpunten, terwijl er 256 ver- 
schillende kleuren kunnen worden gebruikt. 
Het programma werkt alleen met diskdrive 
en ook het bezit van een muis is een ver- 
eiste. Tevens dient het videogeheugen 128K 
groot te zijn, wat echter bij alle tot nu 
toe op de markt gekomen M5X2-machines 
wel het geval is. 

Het programma is erg gebruiksvriendelijk 
doordat er gewerkt wordt met ikonen. Dit 
zijn beeldsymbolen die een bepaalde hande- 
ling voorstellen. Met behulp van de muis 
kan een bepaalde tekenoptie worden geko- 
zen, die dan met een druk op de muisknop 
kan worden uitgevoerd, er komt bijna geen 
letter tekst aan te pasi De gemaakte teke- 
ningen kunnen uitgeprint worden op een 80 
koloms printer en opgenomen worden in 
zelfgemaakte programma's . 

MENUSTRUCTUUR 

Het programma is opgebouwd rond een 
aantal menu's en palets. Na het opstarten 
van het programma verschijnt in het mid- 
den van het scherm het tekenmenu. Men 
kan nu met de muis een wit vlakje bestu- 
ren en zo de gewenste optie aanwijzen, die 
met een klik op de linker muisknop kan 
worden uitgevoerd. Als men de muis hele- 
maal naar links of naar rechts beweegt, 
verschijnt er vanzelf een ander menu of 
palet op het scherm. Van links naar rechts 
zijn er de volgende menu's en palets: 

Invoer en uitvoer menu 
Scherm manipulatie menu 
Teken menu 
Kleurenpalet 
Patronenpalet 



De menu's en palets worden als het ware 
over de tekening heen geprojecteerd. Bij 
het uitvoeren van een optie verdwijnt het 
menu ais het een belemmering zou kunnen 
vormen bij het tekenen. Bij de eigenlijke 
tekenfuncties is dus het gehele scherm 
zichtbaar! 

INVOER EN UITVOER MENU 

Via dit menu kunnen we de in- en uitvoer- 
functies kiezen, zoals het saven, laden en 
uitprinten van een tekening, het opvragen 
van de M0USE8-files en het saven van de 
spuitbuspatronen. 

Saven en laden tekening: 

Als men deze opties kiest moet er eerst 
via het toetsenbord een filenaam worden 
ingevoerd. Na het ingeven van de filenaam 
wordt gevraagd of de gebruiker ermee ak- 
koord gaat en pas daarna wordt de teke- 
ning gesaved of geladen. Het ingeven van 
een lege filenaam heeft tot gevolg dat 
wordt teruggekeerd naar het menu. 

Overzicht M0USE8-f iles: 

Met deze optie kan men een overzicht krij- 
gen van de M0USE8-tekeningen die op dis- 
kette staan. Alleen de M0USE8-files zijn 
voor het programma van belang, zodat de 
andere files worden genegeerd! 

Uitprinten tekening: 

Ook het uitprinten van de tekening 
behoort tot de mogelijkheden van het pro- 
gramma, Hierbij kan men kiezen tussen een 
normale of een 'doublé strike' afdruk. De 
laatste mogelijkheid is handig als het inkt- 
lint een beetje versleten is. Eerst ver- 
schijnt er een melding op het scherm, 
waarin gevraagd wordt de printer klaar te 
zetten en op een toets te drukken, 1 van 
de muisknoppen wel te verstaan. Als men 
een toets geeft met de rechter muisknop, 
wordt teruggekeerd naar het menu. Druk- 
ken op de linker muisknop heeft tot gevolg 
dat het printen begint, mits de printer ook 
daadwerkelijk klaar staat. De tekening 
wordt daarna op twee velletjes A4 uitge- 
print. Het printen is voortijdig te onder- 
breken met een toets op de rechter muis- 
knop. 

Saven spuitbuspatronen: 

Met deze optie is het mogelijk om de ver- 
anderde spuitbuspatronen voor later ge- 
bruik te saven. Bij het opstarten van het 
programma worden deze patronen daarna 
steeds automatisch ingeladen. 

Foutmeldingen: 

Wanneer het programma bij het saven of 
laden een fout ontdekt, zal het daarvan 
een melding geven. De volgende foutmeldin- 
gen kunnen optreden: 



Disk is schrijfbeveiligd 
Disk is niet geformatteerd 
Geen disk in drive 
Disk i/o error 
File niet gevonden 
Disk is vol. 

SCHERM MANIPULATIE MENU 

In dit menu staan de mogelijkheden om de 
tekening op allerlei manieren te verande- 
ren. De mogelijkheden varieren van scrol- 
len, spiegelen, vergroten, verkleinen tot 
copieren, scherm wissen en kleur verande- 
ren. 
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Scroll functies: 

Het is mogelijk om delen van het scherm in 
alle richtingen te verschuiven. Hierbij 
dient eerst het te verschuiven vlak geko- 
zen te worden. Dit gaat als volgt in zijn 
werk. Na het kiezen van de scrollf unctie 
verschijnt er een rechthoek op het 
scherm, met op een van de hoekpunten een 
kruis. Als men nu de linker muisknop inge- 
drukt houdt, kan men door de muis te be- 
wegen de plaats van dat hoekpunt veran- 
deren. Een korte klik op de linker muis- 
knop zorgt ervoor, dat de positie van een 
ander hoekpunt kan worden veranderd. Als 
men zo het juiste vlak heeft bepaald, moet 
men op de rechter muisknop drukken, 
waarna de rechthoek van het scherm ver- 
dwijnt. Het gekozen schermdeel kan nu 
over elke afstand verschoven worden door 
op de linker muisknop te drukken. Een 
toets op de rechter muisknop betekent te- 
rugkeren naar het menu. De lege ruimte 
die bij het scrollen ontstaat, wordt opge- 
vuld met de tekenkleur. Deze kan in het 
kleurenpalet worden aangegeven. 

Vergroten, verkleinen, spiegelen en 
copieren: 

Met deze opties is het mogelijk om delen 
van het scherm te vergroten of te ver- 
kleinen, zowel in alleen de H- of Y- richting 
ais in beide richtingen. Ook het spiegelen 
en copieren van schermdelen behoort tot 
de mogelijkheden. Men dient eerst een be- 
paald schermdeel aan te geven: het origi- 
neel. Vervolgens kan men door de linker 
muisknop ingedrukt te houden en met de 
muis te bewegen de plaats van het beeld 
bepalen. Als men de plaats van het beeld 
bepaald heeft, kan men de bewerking uit- 
voeren door op de rechter muisknop te 
drukken. Het is steeds mogelijk om voortij- 
dig naar het menu terug te keren door de 
rechter muisknop net zo lang ingedrukt te 
houden, totdat het menu weer verschijnt. 

Scherm wissen: 

Met deze optie wordt het scherm gewist. 
Kleur veranderen: 

Het is ook mogelijk een willekeurige kleur 
op het scherm te veranderen in een ande- 
re kleur. Hiertoe dient men voor het kie- 
zen van deze optie eerst de nieuwe kleur 
aan te wijzen in het kleurenpalet. Na het 
kiezen van de optie verschijnt er een klein 
rechthoekje op het scherm. Dit rechthoekje 
moet men met de muis op de te veranderen 
kleur plaatsen. Met een druk op de linker 
muisknop wordt de kleur daadwerkelijk ver- 
anderd, terwijl men met de rechter muis- 
knop voortijdig kan terugkeren naar het 
menu. 

TEKENMENU 

In dit menu bevinden zich de eigenlijke te- 
kenfuncties, zoals het trekken van lijnen, 
het tekenen van rechthoeken, cirkels en 
driehoeken en het plaatsen van tekst. 

Tekenen met de muis: 

Hierbij kan men door de linker muisknop 
ingedrukt te houden en de muis te bewe- 
gen willekeurige rechte of gebogen lijnen 
trekken. Een druk op de rechter muisknop 
betekent terugkeren naar het menu. 

Lijnen trekken tussen punten: 
Met deze optie is het mogelijk om lijnen te 
trekken tussen aan te geven punten. Met 
de muis kan men het kruis over het 
scherm verplaatsen. Als men op een be- 



paald punt de linker muisknop indrukt en 
ingedrukt houdt, wordt dat punt beschouwd 
als beginpunt en kan men met de muis het 
eindpunt bepalen. Na een druk op de rech- 
ter muisknop wordt er een lijn tussen de 
punten getekend. Een toets op alleen de 
rechter muisknop betekent weer terugke- 
ren naar het menu. 

Tekst plaatsen: 

Na het kiezen van deze optie moet eerst 
het letterf ormaat bepaald worden door de 
muis te bewegen. Na het op de linker muis- 
knop drukken kan de tekst in het gekozen 
formaat worden ingevoerd. Vervolgens kan 
men de plaats van de tekst op het scherm 
bepalen. Na een klik op de linker muisknop 
wordt de tekst definitief geplaatst, druk- 
ken op de andere muisknop betekent te- 
rugkeren naar het menu. Het is niet moge- 
lijk om teksten in kleur 0 C=zwart3 op het 
scherm te zetten. 

Spuitbus: 

Deze optie maakt het mogelijk om een ge- 
deelte van het scherm in te vullen met 
een in het patronenpalet aangegeven pa- 
troon. Er wordt alleen 'gespoten' als men 
de linker muisknop ingedrukt houdt. Een 
korte klik op de deze knop resulteert in 
een verandering van het spuitoppervlak. 
Met een druk op de rechter muisknop kan 
men terugkeren naar het menu. 

Vlak inkleuren: 

Hierbij moet men eerst met het kruis een 
punt van het in te kleuren vlak aangeven 
en vervolgens op de linker muisknop druk- 
ken. Daarna verschijnt er een klein recht- 
hoekje op het scherm, waarmee de rand- 
kleur kan worden aangegeven. Met een 
toets op de linker muisknop wordt het 
aangegeven schermdeel ingekleurd met de 
tekenkleur, terwijl met de rechter muis- 
knop voortijdig naar het menu kan worden 
teruggekeerd. In de praktijk komt het re- 
gelmatig voor, dat het inkleuren in de soep 
loopt, doordat de rand van het in te kleu- 
ren vlak niet geheel gesloten was. Vandaar 
dat men na het inkleuren kan bepalen of 
men al dan niet terug wil naar de situatie 
voor het inkleuren. Een toets op de linker 
muisknop haalt de voorgaande tekening 
weer terug en met de rechter muisknop: 
het tekenmenu. 

Lijndikte veranderen: 

Dit is eigenlijk geen echte tekenfunctie, 
maar een inst elf unctie. Er kan gekozen 
worden tussen twee lijndiktes, namelijk 1 
en E. 

Kleur toekennen aan kleurenpalet: 
Stel, men wil in een bepaalde kleur gaan 
tekenen, die ai in de tekening gebruikt is 
en men weet niet welke kleur dit is in het 
kleurenpalet. In dat geval biedt deze optie 
uitkomst. Op het scherm verschijnt een 
klein rechthoekje, waarmee men de gewens- 
te kleur kan aangeven. Met een druk op 
de linker muisknop wordt deze kleur aan 
het kleurenpalet toegekend. Deze kleur 
wordt daarna dus de tekenkleur. 

Geometrische figuren 

Het is ook mogelijk geometrische figuren 
te tekenen, zoals cirkels, rechthoeken en 
driehoeken, al dan niet ingekleurd met een 
patroon. Hierbij moet steeds eerst de 
plaats bepaald worden, waar het figuur op 
het scherm gezet gaat worden. Hiervoor 
geldt de volgende standaardprocedure. Na 
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het kiezen van de optie verschijnt er een 
figuur op het scherm, met op een van de 
hoekpunten een kruis. Als men nu de lin- 
ker muisknop ingedrukt houdt, kan men 
door de muis te bewegen de plaats van dat 
hoekpunt veranderen. Een korte klik op de 
linker muisknop zorgt ervoor, dat de 
plaats van een ander hoekpunt kan worden 
veranderd. Als men zo de juiste vorm van 
het figuur heeft bepaald, moet men een 
klik op de rechter muisknop geven, waarna 
het figuur daadwerkelijk op het scherm 
wordt getekend. Door de rechter muisknop 
ingedrukt te houden, kan voortijdig worden 
teruggekeerd naar het tekenmenu. 

KLEURENPALET 

Van de 256 kleuren van het kleurenpalet 
zijn er steeds maar 1G zichtbaar, anders 
zou het kleurenpalet het gehele scherm in 
beslag nemen. Met een klik op de rechter 
muisknop kan steeds een volgende serie 
van 16 kleuren opgeroepen worden. Het 
kiezen van een kleur gaat erg simpel: men 
brengt de pijl naar de gewenste kleur en 
drukt dan op de linker muisknop. 

PATRONENPALET 

In dit palet staan de patronen die bijvoor- 
beeld met de spuitbus uit het tekenmenu 
op het scherm kunnen worden gebracht. 
Het kiezen van een bepaald patroon gaat 
weer heel eenvoudig: gewoon de pijl naar 
het gewenste patroon brengen en op de 
linker muisknop drukken. Het is mogelijk 
om een patroon te veranderen of een ge- 
heel nieuw patroon te ontwerpen. Als men 
namelijk op de rechter muisknop drukt, 
verschijnt het geselecteerde patroon in 
een soort raster midden op het scherm. 
Met de linker muisknop kunnen nu de 
puntjes aan of uit worden gezet. Het ont- 
werpen wordt beëindigd met een toets op 
de rechter muisknop. Het veranderen van 
de patroonkleuren gaat als volgt: wil men 
de voorgrondkleur van de patronen veran- 
deren, dan moet men enige tijd de linker 
muisknop ingedrukt houden. De voorgrond- 
kleur wordt dan veranderd in de teken- 
kleur. Wil men de achtergrondkleur wijzi- 
gen, dan moet men de rechter muisknop 
enige tijd ingedrukt houden. 

TEKENING OPNEMEN IN PROGRAMMA 

De gemaakte tekeningen kunnen zoals 
gezegd in een zelfgemaakt programma 
worden opgenomen. Men moet hiertoe in 
het programma na de SCREEN8-opdracht de 
volgende instructie opnemen: 

BLOAD"naam tekening.TM8",S 

Deze instructie zorgt ervoor dat de teke- 
ning in het VRAM wordt geladen. 

HET PROGRAMMA 

Het programma is grotendeels in BASIC ge- 
schreven, een bewijs van de grote klasse 
van M5X2-BASIC. Alleen handelingen, die in 
BASIC teveel tijd in beslag nemen, zoals 
het uitprinten van de tekening, zijn in ma- 
chinetaal geprogrammeerd. Het programma 
bestaat uit een aantal gedeeltes: een BASIC 
gedeelte en een aantal geheugenfiles, dat 
vanuit het BASIC programma wordt geladen. 
Bij het uitprinten van de tekening wordt 
gebruik gemaakt van de bit-image printmo- 
de. De printercodes hiervoor zijn voor 
praktisch iedere printer verschillend, van- 
daar dat er het een en ander in het pro- 
gramma door de gebruiker zal moeten wor- 
den aangepast. De printercodes moeten 



worden ingevoerd in de strings El$ tot en 
met E3$ in regel 1SÜ. De strings, die stand- 
aard gevuld zijn met de waarden voor de 
Philips NMS1431, moeten de volgende codes 
bevatten: 

El$ Regeiopvoer van 1/12 inch. 

E2$ 384 tekens grafisch printen met een 

dichtheid van GO dots per inch. 

E3$ Reset printer. 

Veel succes!! 

Martin van der Graaff 

10 REM M0USE8 

20 REM TEKENPROGRAMMA voor MSX2 met 128K V 
RAM, DISKDRIVE en MUIS 
30 REM 

40 REM Door: M, van der Graaff 

50 REM (c) 1988 

60 REM MSX-Gids Lelystad 

70 REM 

80 CLS: CLEAR100, &HD780: DEFINTA-Z: OPEF'GRP: 
" AS1 : DEFUSR=&HDB00 : ONSTOPGOSUB370 : STOPON: 0 
NERRORGOTO570: FT=PEEK (&HF3DE) : VI=PEEK(&HF3 
B0) : VC=PEEKC&HF3E9) : AC=PEEK (&HF3EA) : BC=PEE 
K (&HF3EB) : SC=PEEK (&HFCAF) : SETBEEP1 ,3: COLOR 
,1,1: SCREEN8 , 2 : C0L0R1 , 255 , 255 : SCREEIT8 
90 X=0: Y=0:LX=0:LY=0:LD=1:DUMY=0: I=0:ME=3: 
XM=256: YM=1: XP=0: YP=0: VK=0: AK=15: SP=1: S0=8 
: YM(1)=63: YM(2)=159: YM(3) = 159: YM(4)=127: YM 
(5)=159: X(l)=64: Y(1)=64:X(2)=128: Y(2)=128: 
X(3)=192: Y(3)=128:X(4)=128: Y(4)=64 
100 BLOAD"SPRITES.M8",S:PÜTSPRITE0, (120,98 
), 1, 1:LINE(120,99)-(135, 114) , 91 , BF: BLOAD" A 
TRIBUT. M8" , S: BLOAD" PATROON. M8" , S: BLOAD" MTC 
ODES . M8" : COLORSPR ITE(0) = 15:LIirE<120,99)-(l 
35, 114), 255, BF 
105 GOSÜB3120 

110 POKE&HDDD0 , VPEEK (&HED00 ) : P0KE&HDDD1 , VP 
EEK (&HED01 ) : SETPAGE0 , 1 : CLS: DUMY=USR (&H69) 
120 E1$=CHR$(27)+"T12" :E2$=CHR$(27)+"G0600 
384" : E3$=CHR$ (27 ) +" ft» 

130 FQR I = 1 TOLEN ( E2 $ ) + 1 : P0KE&HDCD5 + 1 , ASC ( M I 
D£ (CHRS ( 13 ) +E24 ,1,1)): NEXT : POKE&HDCEB, LES ( 
E2$)+l 

140 SETPAGE1, 0: CLS: VDP (9) =10: FORI=0TO255: L 
I HE ( 1 , 0) - < 1 , 21 1 > , I : SEXT: P0KE&HDBA5 , 3 
150 P0KE&HDBA6, 4: F0RI=1T07:PSET (40+1*20, 11 
0) , PO INT (40+ 1*20, 110) : C0L0R1 : PQKE&HDBA7 , AS 
C (MI D$ ("MOUSE 8", 1,1)): DUMY=USR (&HDB30 ) : NE 
XT:F0RI=1T07:PSET (41 + 1*20, 111) , POINT (41+1* 
20, 111) : C0L0R239 ; POKE&HBBA? , ASC(MID$("MQÜS 
E 8" , I , 1 ) ) : DUMY=USR (&HDB30 ) : NEXT 
160 PQKE&HDBA5, 2 : P0KE&HDBA6 , 2 
170 F0RI=1T014: PSET (32+1*12, 150) , P0INT(32+ 
I * 12 , 150 ) : C0L0R1 : P0KE&HDBA7 , ASC (MID$ (" teke 
nprogramma" ,1,1)): DÜMY=USR(&HDB30) : NEXT: FO 
RI=1T014:PSET (33+1*12, 151) , POINT (33+1*12, 1 
51) : C0L0R91 : P0KE&HDBA7, ASC(MID$ ("tekenprog 
ramma" ,1,1)): DUMY=ÜSR (&HDB30 ) : NEXT * 
180 SETPAGE0, 0: C0L0R1: VDP (9) =8: P0KE&HDB2F, 
ME : DUMY=USR ( &HDB09 ) 

190 DUMY=PAD ( 12 ) : XM=XM+PAD ( 13 ) : YM=YM+PAD ( 1 
4) : I FYM< 0THENYM= YM < ME ) -8ELSE I FYM> YM ( ME ) THE 
NYM=0 

200 I FXM< 0THENXM=5 1 1 ELSE I FXM> 5 1 1 THENXM=0 
210 LME=ME:ME=XM/96+l+(XM>383ANDXM<416)+(X 
M>479) : IFMEOLMETHENGOSUB240 
215 KEY(1)ST0P 

220 ONMEGOSUB290,290,290,300,310: IFSTRIG (1 
) THENGOSUB330ELSE I FSTR I G (3 ) THENGOSUB350 
225 KEY(1)0N 
230 GOTO190 

240 VDP(9)=10: I FYM ( ME ) - 16 < YMTHENYM= YM (ME ) - 
16 
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250 IFLME=4THENC0PY (144,0)- (207, 63), ITO (14 
4,0) ELSE I FLME=5THENCOPY (208 , 0 ) - (255 , 79 ) , 1T 
0(208,0) 

260 I FME=4THENP0KE&HDB2F , 4 : DUMY=USR (&HDB09 
) : COPY (144,0)-(207,63)TO(144,0),1: POKE&HDD 
3D, VKAND240: P0KE&HDBA5, 16: PQKE&HBBA6 , 16: DU 
MY=USR (&HDD03 ) : VDP (9 ) =8 : RETURN 
270 I FME=5THENP0KE&HDB2F , 4 : DUMY=USR (&HDB09 
) : COPY (208 , 0 ) - (255 , 79 ) TO (208 , 0 ) , 1 : DUMY=USR 
(&HDDD3 ) : VDP (9 ) =8 : RETURN 

280 P0KE&HDB2F, ME: DUMY=USR(&HDB09) : VDP(9) = 
8: RETURN 

290 PUTSPRITE15, ( (XM/2AND240 ) , (YM/2AND240) 
-1), 15, 41: RETURN 

300 PUTSPRITE0, ((XM/2AND240), (YM/2AND240)- 
1), 15+14* (VK> 127), 34: PÜTSPRITE1, ( ( (VKAND15 
)M0D4)*16+144, (INT( (VKAND15)/4) )*16-1) , 15+ 
14* (VK> 127), 2: RETURN 

310 IFPEEK (&HDDD0 ) XORPEEK (&HDDD1 ) >250THENK 
=7ELSE I FPEEK (&HDDD0 ) >250ORPEEK (&HDDD1 ) =15T 
HENK=0ELSEK=15 

320 PUTSPRITE0, ( (XM/2AND240) , (YM/2AND240)- 

1),K,34:PÜTSPRITE1, ( ( (SP- 1 ) M0D3 )* 16+208, (I 

NT((SP-1)/3)*16)-1),K,2:RETURN 

330 BEEP:XP=XM/32+l:YP=YM/32+l: IFXP=9ANDYP 

=2ORME>3ORME<2THENONMEGOSUB390, 650, 950, 172 

0, 1740: COLORVK, 255, 255: DUMY=PAD(12) : RETURN 

335 1 FX< > 90RYP< > 5THENDUMY=USR (&HD780 ) 

340 VDP (9) =10: P0KE&HDB2F , 4 : DUMY=USR (&HDB09 

) : VDP (9 ) =8 : ONMEGOSUB390 , 650 , 950 : VDP (9 ) = 10 : 

P0KE&HDB2F, ME: DUMY=USR (&HDB09) : VDP (9) =8: CO 

LORVK, 255,255: DUMY=PAD( 12) : RETURN 

350 I FMB= 4THENG0SÜB1 7 30 ELSE I FME=5THENBEEP : 

GOSUB1760 

360 RETURN 

370 SCREENSC: COLORVC, AC, BC: POKE&HF3B0 , VI : I 
FFT=255THENKEY0N 

380 P0KE&HFDA4, &HC9: ONERRORGOTO: END 

390 ON(XP-1)*2+YPGOTO400, 450, 400, 450, 550, 4 

90 

400 GOSUB420: IFINS=" J"ORIN$=" j"THENIFXP=lT 

HEN: BL0ADFIS+" . TM8" , SELSE I FXP=2THENBSAVEF I 

$+" . TM8" , &H0, &HD3FF, S 

410 FORI=1TO250:NEXT: RETURN 

420 COPY (46 , 84 ) - (209 , 127 ) TO (46 , 84 ) , 1 

430 LINE(48,86)-(207, 125) , 91, BF: LINE(47, 85 

)-(208, 126), l,B:LINE(46,84)-(209, 127), 1,B: 

C0L0R1, 91: X=56: Y=94: LE=8: I$=" FILENAAM: " : GO 

SUB2300 : I F I NS O" " THENF I $= I N$ : X=64 : Y= 1 1 1 : LE 

=1: I$="AKOORD?:":GOSUB2300: IFIN$="F'ORIN$= 

" n"THEN430 

440 COPY (46,84)- (209 , 127 ) , ITO (46 , 84 ) : RETUR 
N 

450 GOSUB460: I FS=3THENRETURNELSELPR I NTE1 $ : 
POKE&HDCEA, XP: DUMY=USR (&HDBAA) : LPRINTE3S: R 
ETURN 

460 COPY (46, 84) -(209, 127)T0(46, 84) , 1: LINE( 
48,86)-(207, 125),91,BF:LINE(47,85)-(208, 12 
6), l,B:LINE(46,84)-(209, 127) , 1, B: C0L0R1, 91 
: PSET(56,94),91:PRINT#1,"ZET PRINTER KLAAR 
! ,, :PSET(88, 111 ) , 91: PRINT#1 , "GEEF TOETS" 
470 I FSTR I G ( 1 ) ANDUSR (&HDCEC) =255THENS= IELS 
E I FSTR IG (3 ) THENS=3ELSE470 

480 COPY (46, 84)- (209, 127) , ITO (46, 84) : RETUR 
N 

490 COPY (50 , 60 ) - (205 , 15 1 ) TO (50 , 60 ) , 1 : POKE& 
HDD01, 0: POKE&HDD02, &HD8: P0KE&HFDA4 , &HC9: PO 
KE&HFDA5 , &HF8 : P0KE&HFDA6 , &HDC: P0KE&HFDA4 , & 
HC3 : C0L0R1 , 91 : FILES" * . TM8" : L I NE (52, 62 ) - (20 
3, 149),91,BF:LINE(51,61)-(204, 150),1,B:LIN 
E(50,60)-(205, 151), 1,B 

500 F0RI=1T0PEEK (&HDD01 ) /12: PRESET (60+ ( ( I- 
l)MOD2)*72,70+INT((I-l)/2)*8) ,91 



510 PRINT#1, CHRS (PEEK(&HD7F4+I*12) )+CHR$ (P 
EEK (&HD7F5+ 1*12)) +CHRS (PEEK (&HD7F6+ I *12 ) ) + 
CHR$ (PEEK (&HD7F7+ 1*12)) +CHRS (PEEK (&HD7F8+ I 
*12 ) ) +CHR$ (PEEK (&HD7F9+ 1*12)) +CHR$ (PEEK (&H 
D7FA+ 1*12 ) ) +CHR$ (PEEK (&HD7FB+ I *12 ) ) : NEXT 
520 PSET(88, 135),91:PRINT#1,"GEEF TOETS" 
530 I FSTR I G ( 1 ) ORSTR I G (3 ) THENCOPY (50 , 60 ) - (2 
05, 151), 1TO(50,60):POKE&HFDA4,&HC9:FORI=1T 
0250: NEXT: RETURNELSE530 

540 LINE(52,62)-(203, 149) , 91, BF: LINE(51 , 61 
)-(204, 150), l,B:LINE(50,60)-(205, 151), 1,B: 
PSET(60,70),91:PRINT#1,"GEEN M0USE8 FILES" 
: PSET (60 , 78 ) , 91 : PR INT#1 , SPACES (4 ) +"GEVONDE 
N! " +SPACES (4 ) : GOTO520 

550 COPY(10,84)-(245, 127)TO(10, 84) , 1 : LINE ( 
12, 86) -(243, 125), 91, BF: LINE (11, 85)- (244, 12 
6), l,B:LINE(10,84)-(245, 127) , 1, B:C0L0R1, 91 
: PSET (20 , 94 ) , 91 : PR I NT#1 , " DOE PROGRAMMAD I SK 

IN DRIVE!": PSET (88, 111) , 91 : PRINT#1 , "GEEF 
TOETS" 

560 I FSTR I G ( 1 ) THENCOPY ( 10 , 84 ) - (245 , 127 ) , 1T 
0(10, 84) : VPOKE&HED00, PEEK(&HDDD0) : VPOKE&HE 
D01 , PEEK (&HDDD1 ) : BSAVE" PATROON. M8" , &HDE00 , 
&HED0 1 , S : RETURNELSE I FSTR I G (3 ) THENCOPY (10,8 
4 ) - (245 , 127 ) , ITO ( 10 , 84 ) : RETURNELSE560 
570 P0KE&HFDA4 , &HC9 : F0$=" " 
580 IFERR=53THENIFERL=490THENRESUME540ELSE 
FO$="FILE NIET GEVONDEN!" 

590 I FESR=7THEN640ELSEIFERR=60THENFO$=" DIS 
K IS NIET GEFORMATTEERD!" ELSE IFERR=66THENF 
0$="DISK IS VOL!" ELSE IFERR=68THENF0$=" DISK 

IS SCHR I J FBEVE I L I GD ! " ELSE I FERR=69THENF0$= 
"DISK I/O ERROR ! " ELSE I FERR=70THBNFO$=" GEEN 

DISK IN DRIVE!" 
600 I FFO$=" " ORERL= 100THENPOKE&HFDA4 , &HC9 : G 
OTO370 

610 COPY (10, 84)- (245, 127)TO(10, 84) , 1:LINE( 
12, 86)- (243, 125) , 229, BF: LINE (11, 85)-<244, 1 
26), l,B:LINE(10,84)-(245, 127) , 1, B: BEEP: COL 
0R1, 229: PSET (20, 94) , 229: PR INT#1, SPACES ( (27 
-LES (FOS ) ) /2 ) +FOS : PSET (88 , 1 1 1 ) , 229 : PR INT#1 
, "GEEF TOETS" 

620 IFSTRIG(1)0RSTRIG (3) THENCOPY (10, 84)- (2 
45, 127) , ITO (10, 84) : RESUME630ELSE620 
630 FORI=1TO250: NEXT: RETURN 
640 BEEP: VDP (9) = 10: P0KE&HDB2F, ME: DUMY=USR( 
&HDB09 ) : VDP (9 ) =8 : COLORVK , 255 : RESUME230 
650 XP=XP-3 : ON (XP- 1 ) *5+YPGOTO660 , 680 , 700 , 7 
20 , 740 , 770 , 790 , 8 10 , 820 , 830 , 840 , 880 , 920 , 930 
, 940 

660 GOSUB1910 

670 IFSTRIG(l)THENC0PY(X(l)+4, Y(1))-(X(2), 
Y(2))T0(X(1), Y(l)):LINE(X(2)-3, Y(1))-(X(2) 
, Y (2 ) ) , , BF : FOR I = 1TO250 : NEXT : GOTO670ELSE I FS 
TR I G ( 3 ) THENRETURNELSE670 
680 GOSUB1910 

690 IFSTRIG(1)THENC0PY(X(1), Y(l)+4)-(X(2), 
Y(2))T0(X(1), Y(1)):LINE(X(1), Y(2)-3)-(X(2) 
, Y (2) ) , , BF: FORI=1TO250: NEXT: GOTO690ELSE I FS 
TR I G ( 3 ) THENRETURNELSE690 

700 GOSUB1910: I FSTR I G (3 ) THENRETURNELSEGOSU 
B760: XV=4: YV=4: GOSUB2010: I FSTR I G (3 ) THENRET 
URN 

710 FORX=X ( 1 ) TOX (2 ) : FORY=0TO1 : COPY (X , Y ( 1 ) ) 
- (X, Y (2 ) ) TO ( (X-X ( 1 ) ) *2+Y, 0) , 1 : NEXTY, X: FORY 
=0TOY (2 ) - Y ( 1 ) : FORX=0TO1 : COPY (0 , Y ) - ( (X (2 ) -X 

( 1 ) ) *2+l , Y) , ITO (X (3 ) , Y (3 ) +Y*2+X) : NEXTX, Y: R 
ETURN 

720 GOSUB1910: I FSTR IG (3) THENRETURNELSEGOSU 
B760: XV=1: YV=1: GOSUB2010: I FSTR IG (3) THENRET 
URN 

730 FORX=X ( 1 ) TOX (2 ) STEP2 : COPY (X, Y ( 1 ) ) - (X , Y 

(2 ) ) TO ( (X-X ( 1 ) ) /2 . 0 ) , 1 : NEXTX : FORY=0TOY (2 ) - 
Y ( 1 ) STEP2 : COPY (0, Y)- ( (X(2)-X(l) )/2, Y) , 1T0( 
X(3) , Y(3)+Y/2) : NEXTY: RETURN 
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740 GOSUB1910: I FSTR I G (3 ) THENRETURNELSEGOSU 
B760: XV=2: YV=2: GOSUB2010: I FSTR I G (3 ) THENRET 
URN 

750 C0PY(X(1),Y<1))-<X(2),Y(2))T0<X(1),Y<1 
)), l:COPY(X(l),Y(l))-(X(2),Y(2)), 1T0(X<3), 
Y(3)): RETURN 

760 LINE(X(1),Y(1))-(X(2),Y(2)),255,B,X0R: 
RETURN 

770 GOSÜB1910 

780 IFSTRIG(l)THENCOPY(X(2)-4,Y(l))-(X(l), 
Y(2))TO(X(2),Y(l)):LINE(X(l), Y(l))-(X(l)+3 
, Y<2) ) , , BF: FORI=1TO250: SEXT: GOTO780ELSE I FS 
TR I G <3 > THENRETÜRNELSE780 
790 GOSÜB1910 

800 I FSTR I G ( 1 ) THENCOP Y (X (2 ) , Y (2 ) -4 ) - (X ( 1 > , 
Y(1>)TQ(X(2>,Y(2)):LINE(X(1), Y(1)>-(X(2),Y 
( 1 ) +3 ) , , BF : FOR I = 1TO250 : NEXT : GOTO800ELSE I FS 
TR I G (3 ) THENRETURNELSE800 

810 GOSÜB1910: I FSTR I G <3 ) THENRETURNELSEGOSU 
B760: XV=2: YV=4: GOSÜB2010: I FSTR I G (3 ) THENRET 
URNELSECOPY (0 , 0 ) - (255 , 2 1 1 ) TO (0 , 0 ) , 1 : FORY= Y 
(l)TOY(2) : FORX=0TO1: COPY(Xd) , Y)- (X(2) , Y) , 
1 TO (X (3 ) , Y (3 ) + ( Y- Y ( 1 ) ) *2+X ) : NEXTX , Y : RETURIf 
820 GOSÜB1910: I FSTR I G (3 > THENRETURNELSEGOSU 
B760 : XV=2 : YV= 1 : GOSUB20 10:1 FSTR I G (3 ) THEIfRET 
URNELSECOPY <0,0)-<255,211)TO<0,0),l: FORY=Y 
<l)TOY (2)STEP2: COPY<X (1) , Y>- (X(2) , Y) , 1T0(X 
<3 ) , Y <3 ) + < Y- Y < 1 ) ) /2 ) : IfEXTY : RETURN 
830 CLS: RETURN 

840 GOSUB1910: I FSTR I G <3 ) THENRETURNELSEGOSU 
B760: XV=2: YV=2: GOSUB2010: I FSTR I G (3 ) THENRET 
URNELSECOPY (0, 0)- (255, 211)TO(0, 0) , 1 : DIMS (2 
048) 

850 FQRX=X(l)TOX(2)STEP32:HX=X(2)-X: IFHX>6 
3THENHX=31 

860 FQRY=Y(1)T0Y(2)STEP32:HY=Y(2)-Y: IFHY>6 
3THENHY=31 

870 COPY (X, Y>- (X+HX, Y+HY) , 1TOS: COPYS, 2TO (X 
(3)+X-X(l) , Y<3)+Y<2)-Y(l>- (Y-Y(l) ) ) : NEXTY, 
X:ERASES: RETURN 

880 GOSUB1910: I FSTR IG (3) THENRETURNELSEGOSU 
B760: XV=2: YV=2: GOSUB2010: I FSTR IG (3) THENRET 
URNELSECOPY (0,0)- (255, 211 )TO(0, 0) , 1 : DIMS (2 
048) 

890 F0RX=X(1)T0X(2)STEP32:HX=X(2)-X: IFHX>6 
3THENHX=31 

900 F0RY=Y(1)T0Y(2)STEP32:HY=Y(2)-Y: IFHY>6 
3THENHY=31 

910 COPY (X,Y>- (X+HX, Y+HY), 1TOS: COPYS, 1T0(X 
(3)+X(2)-X(l)-(X-X(l) ) , Y(3)+Y-Y(l) ) : NEXTY, 
X: ERASES: RETURN 

920 GOSUB1910: I FSTR IG (3) THENRETURNELSEGOSU 

B760: X7=4: YV=2: GOSUB2010: I FSTR IG (3) THENRET 

URNELSECOPY (0,0)- (255 , 2 1 1 ) TO (0 , 0 ) , 1 : FORX=X 

(l)TOX(2) : FORY=0TO1: COPY(X, Y(l) )- (X, Y(2) ) , 

ITO (X (3 ) + (X-X ( 1 ) ) *2+Y , Y (3 ) ) : NEXTY , X : RETURN 

930 GOSOB1910: IFSTRIG (3) THENRETURNELSEGOSU 

B760: XV=1: YV=2: GOSUB2010: IFSTRIG (3) THENRET 

URNELSECOPY (0 , 0 ) - (255 , 21 1 ) TO (0 , 0 ) , 1 : FORX=X 

(1)T0X(2)STEP2:C0PY(X,Y(1))-(X,Y(2)), 1T0(X 

(3 ) + (X-X ( 1 ) ) /2 , Y (3 ) ) : NEXTX: RETURN 

940 GOSUB2250: IFS=lTHENOK=POINT (X, Y) : LINE( 

0, 0)-(255, 211) , OK, BF, XOR: VDP(9)=10: SETPAGE 

0,1:LINE(0,0)-(255,211), VKXOROK , BF : COPY ( 0 , 

0)-(255,211),0TO(0,0), ,TPSET:LINE(0,0)-(25 

5,211),OK,BF,XOR:COPY(0,0)-(255,211)TO(0,0 

) , 0: SETPAGE0, 0: RETURNELSERETURN 

950 XP=XP-6:ON(XP-1)*5+YPGOTO960, 1010, 1130 

, 1150, 1160, 1190, 1300, 1370, 1380, 1400, 1430, 1 

670, 1690,1700,1710 

960 FOR 1=1 TO250 : NEXT : X=128: Y=106 

970 I FSTR I G (3 ) THENRETURNELSELX=X : LY=Y : DUMY 

=PAD(12) : X=X+PAD(13) : Y=Y+PAD(14) : IFX<0THEN 

X=0ELSB I FX> 255THENX=255 

980 I FY< 0THENY=0ELSE I FY> 2 1 1 THENY=2 1 1 



990 PUTSPRITE0, (X-3.Y-4), (VPEEK(&HF800)+1) 
AND15 , 42 : I FSTR IG ( 1 ) =0THEN970ELSE I FLD= 1THEN 
LI NE (LX, LY)- (X, Y) : GOTO970 

1000 LINE(X, Y)-STEP (LD-1, LD-1) , , BF: LINE(LX 
, LY ) -STEP ( LD- 1 , LD- 1 ) , , BF : FOR I =0TOLD- 1 : L I NE 
(LX+I,LY+LD-1)-(X+I, Y+LD-l)iLINE(LX+I ( LY+L 
D- 1 ) - (X+ I , Y+LD- 1 ) : L I NE (LX+LD- I - 1 , LY ) - (X+LD 
-I-1,Y):NEXT:GOTO970 

1010 BE '=56832!+ INT ( (SP-l)/3)*768+( (SP-l)M 

OD3)*16: POKE&HDD89, INT (BE! /256) : POKE&HDD88 

, INT (BE! -256*PEEK (&HDD89) ) : VDP (9) =10 

1020 DUMY=USR(&HDE0C) : SETPAGE0, 1:COPY(0, 0) 

-(15, 15)TO(16,0):COPY(0,0)-(31, 15)TO(0, 16) 

: SETPAGE0, 0: X=128: Y= 106: VDP (9) =8 

1030 I FSTR IG ( 1 ) THEN1070ELSE I FSTR I G (3 ) THENR 

ETURN 

1040 DUMY=PAD(12) : X=X+PAD(13) : Y=Y+PAD(14) : 
IFX<0THENX=0ELSEIFX>256-SO*4THENX=256-SO*4 
1050 IFY<0THENY=0ELSEIFY>212-SO*2THENY=212 
-S0*2 

1060 PUTSPRITE0, (X.Y-l), (VPEEK(&HF800)+1)A 
ND15,51-SO:GOTO1030 

1070 FOR I=1TO250: NEXT: IFSTRIG (l)THENl 100 
1080 SO=SO+l: IFSO>8THENSO=2 
1090 GOTO1030 

1100 DUMY=PAD ( 12 ) : X=X+PAD ( 13 ) : Y=Y+PAD ( 14 ) : 
IFX<0THENX=0ELSEIFX>256-SO*2THENX=256-SO*2 
1110 I FY<0THENY=0ELSE IFY>2 12-S0*2THENY=2 12 

1120 PUTSPRITE0, (X.Y-l), (VPEEK(MF800)+1)A 
ND15.51-S0: IFSTRIG (1)THENC0PY(XM0D16, YMOD1 
6 ) -STEP (S0*2- 1 , S0*2- 1 ) , ITO (X , Y ) : GOTO1100EL 
SE1030 

1130 MP=4:GQSUB2150: IFSTRIG (3) THENRETURNEL 
SEX1=X(1) : Y1=Y(1) : X2=X(2) : Y2=Y(2) :GOSUB114 
0: X1=X (2) : Y1=Y (2) : X2=X(3) : Y2=Y(3) : GOSUB114 
0: X1=X(3) : Y1=Y(3) : X2=X(4) : Y2=Y(4) :GOSUB114 
0: X1=X(4) : Y1=Y(4) : X2=X(1) : Y2=Y(1) : G0SUB114 
0 : RETURN 

1140 I FLD= 1 THENL I NE ( XI , Y 1 ) - ( X2 , Y2 ) : RETURNE 
LSEL I NE (X2 , Y2 ) - (X2+LD- 1 , Y2+LD- 1 ) , , BF : L I NE ( 
XI , Yl )- (Xl+LD-1, Yl+LD-1) , , BF : FOR I =0TOLD- 1 : 
LINE(X1 + I, Yl+LD-D- (X2+I , Y2+LD-1) : LINE(X1 + 
I , Yl+LD-D- (X2+I , Y2+LD-1 ) : LINE (Xl+LD- 1-1 , Y 

1 ) - ( X2+LD- I - 1 , Y2 ) : NEXT : RETURN 

1150 GOSÜB1910: IFSTRIG (3)THENRETURNELSEX1= 
X(l) : Y1=Y(1) : X2=X(2) : Y2=Y(1) : GOSUB1140: Xl= 
X(2):Y1=Y(1):X2=X(2): Y2=Y (2) : GOSUB1140: Xl= 
X(2) : Y1=Y(2) : X2=X(1) : Y2=Y(2) : GOSUB1140: Xl= 
X ( 1 ) : Y1=Y (2 ) : X2=X ( 1 ) : Y2=Y ( 1 ) : GOSUB1 140 : RET 
URN 

1160 GOSUB1910: IFSTRIG(3)ORX(2)-X(1)=0ORY( 

2 ) - Y ( 1 ) =0THENRETURN 

1170 X=(X(l)+X(2))/2: Y=(Y(l)+Y(2))/2: IFX(2 

)-X(l)>Y(2)-Y(l)THENST=(X(2)-X(l))/2: AF!=( 

Y(2)-Y(l))/(X(2)-X(l))ELSEST=(Y(2)-Y(l))/2 

: AF! = (Y(2)-Y(1))/(X(2)-X(D) 

1180 FORI=0TOLD-1:CIRCLE(X,Y),ST-I, , , , AF! : 

NEXT: RETURN 

1190 X=128:Y=106 

1200 IFSTRIG(1)THENLX=X:LY=Y:GOTO1240ELSEI 
FSTR I G (3 ) THENRETURN 

1210 DÜMY=PAD (12 ) : X=X+PAD ( 13 ) : Y=Y+PAD (14 ) : 
I FX<0THENX=0ELSE I FX> 255THENX=255 
1220 I FY< 0THENY=0ELSE I FY> 2 1 1THENY=2 1 1 
1230 PUTSPRITE0, (X-3.Y-4), (VPEEK (&HF800) +1 
)AND15,42.:GOTO1200 

1240 IFSTRIG (1)=0THENLINE (LX, LY)- (X, Y) , 255 
, , XOR: PSET(LX, LY) , 255, XOR: GOTO1200ELSE I FST 
R I G (3 ) THEN1280ELSEL I NE (LX, LY ) - (X, Y) , 255 , , X 
OR 

1250 DUMY=PAD(12) : X=X+PAD(13) : Y=Y+PAD(14) : 
I FX< 0THENX=0ELSE I FX> 255THENX=255 
1260 IFY<0THENY=0ELSEIFY>211THENY=211 
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1270 PUTSPRITE0, (X-3.Y-4), ( VPEEK (&HF800 ) +1 
) AND15, 42: LINE (LX, LY)- (X, Y) , 255, , XOR: GOTOl 
240 

1280 I FLD= 1THENL I FE (LX, LY)- (X, Y) : GOTO1200 
1290 LINE(X, Y)- (X+LD-1, Y+LD-1) , , BF: L INE (LX 
, LY)- (LX+LD-1, LY+LD-1) , , BF: FOR I =0TOLD- 1 : L I 
NE (LX+I , LY+LD- 1 ) - (X+ 1 , Y+LD- 1 ) : L I NE (LX+ 1 , LY 
+LD- 1 ) - (X+ 1 , Y+LD- 1 ) : L I NE (LX+LD- 1 - 1 , L Y ) - (X+ 
LD- I - 1 , Y) : NEXT : GOTO1200 

1300 COPY (0,0)- (255, 211)TO(0,0),1:X=128:Y= 
106: FORI=1TO250: NEXT 

1310 IFSTRIG(l) THEN1350ELSE I FSTR I G (3 ) THENR 
ETURN 

1320 DUMY=PAD(12) : X=X+PAD(13) : Y=Y+PAD(14) : 
I FX< 0THENX=0ELSE I FX>255THENX=255 
1330 I FY < 0THENY=0ELSE I FY > 2 1 1 THENY=2 1 1 
1340 PUTSPRITE0, (X-3,Y-4>; (VPEEK <&HF800)+I 
)AND15,42:GOTO1310 

1350 HX=X:HY=Y:GOSUB2250: I FS=3THENRETURNEL 
SEPAINT (HX, HY) , VK, POINT (X, Y) : FORI=1TO250: N 
EXT 

1360 I FSTR I G ( 1 ) THENCOPY (0, 0)- (255, 211) , ITO 
(0,0): RETURNELSE I FSTR I G (3 ) THENRETURNELSE13 
60 

1370 MP=4:GOSÜB2150: I FSTR I G ( 3 ) THENRETURNEL 
SEGOSÜB1850:LINE(X(1), Y(1))-(X(2),Y(2)),0: 
LINE(X(2),Y(2))-(X(3),Y(3)),0:LINE(X(3),Y( 
3))-(X(4), Y(4)),0:LINE(X(4), Y(4))-(X(1), Y( 

1) ),0:PAINT(0,0),0,0:COPY(0,0)-(255,211), 1 
TO (0 , 0 ) , 0 , TPSET : SETPAGE0 , 0 : RETURN 

1380 GOSUB1910: I FSTR I G (3 ) THENRETURNELSEGOS 
ÜB1850 

1390 LINE (X(l) , Y (1) )- (X(2) , Y(2) ) , 0, B: PAINT 
(0,0>,0,0:COPY(0,0)-(255,211), 1TO(0,0),0,T 
PSET : SETPAGE0 , 0 : RETURN 

1400 GOSUB1910: IFSTRIG(3)ORX(2)-X(1)=0ORY( 

2 ) -Y ( 1 ) =0THENRETURNELSEGOSUB 1850 

1410 X=(X(l)+X(2))/2: Y=(Y(l)+Y(2))/2: IFX(2 

)-X(l)>Y(2)-Y(l)THENST=(X(2)-X(l))/2:AF!=( 

Y(2)-Y(l))/(X(2)-X(l))ELSEST=(Y(2)-Y(l))/2 

: AF! = (Y(2)-Y(1))/(X(2)-X(D) 

1420 CIRCLE(X,Y),ST,0, , , AF! : PAINT (0, 0) , 0, 0 

: COPY (0 , 0 ) - (255 , 2 1 1 ) TO (0 , 0 ) , 0 , TPSET : SETPAG 

E0 , 0 : RETURN 

1430 SETPAGE0 , 1 : COLOR , 0 : CLS: COLOR , ,0:SETPA 

GEI , 1 : VDP (9 ) = 10 : XV= 1 : YV= 1 : X= 1 86 : Y=8 

1440 PRESET (10, 0) : C0L0R255: PRINT#1 , "LETTER 

GROOTTE KIEZEN: ":GOSUB1500 

1450 I FSTR I G ( 1 ) THEN15 10ELSE I FSTR I G ( 3 ) THENS 

ETPAGE0.0: RETURN 

1460 LXV=XV : LYV=YV : DUHY=PAD ( 12 ) : X=X+PAD ( 13 
) : Y=Y+PAD(14) : IFX<186THENX=186ELSEIFX>226T 
HENX=226 

1470 I FY < 8THENY=8ELSE I FY> 64THENY=64 

1480 XV=(X-178)/8: YV=Y/8: I FXV=LXVANDYV=LYV 

THEN1450ELSBLINE (178, 0)- (177+LXV*8, -1+LYV* 

8), 255, B, XOR 

1490 GOSUB1500:GOTO1450 

1500 LINE(178, 0)- (177+XV*8, -1+YV*8) , 255, B, 
XOR: RETURN 

1510 LINE(0, 80)- (255, 211) , 0, BF: PSET (10, 68) 
, 0: PRINT#1, "GEEF TEKST: " : P0KE&HDBA5, XV: POK 
E&HDBA6 , YV : AT=0 : LE=246/ (XVX8 ) - 1 : GR=0 : DUMY= 
USR(&H156) : GOSUB1590 

1520 I$=INKEY$: I FSTR I G ( 1 ) THEN1600ELSE I FSTR 
IG(3)THENCLS: GOTO1440 

1530 I F I $=" " THEN1520ELSE I F I $=CHR$ ( 1 ) THENGR 

= 1 : GOTO1580ELSE I F I $=CHR$ ( 13 ) THEN1600 

1540 I F I $=CHR$ (8 ) THEN I FAT> 0THENL I NE ( 10+ (AT 

- 1 ) *XV*8 , 80 ) - (9+ (AT+1) *XV*8 , 79+YV*8 ) , 0 , BF : 

AT=AT-1 : GR=0: GOSUB1590: GOTO1580 

1550 IFI$<CHR$(32)THEN1580 

1560 IFGRTHENGR=0: IFI$>CHR$ (63) ANDI$<CHR$ ( 

96 ) THEN I $=CHR$ ( ASC ( I $ ) -6 4 ) 



1570 IFLE>ATTHENLINE(10+AT*XVX8, 80)- (9+ (AT 
+1 ) *XV*8 , 79+YV*8 ) , 0 , BF : PSET ( 10+AT*XV*8 , 80 ) 
, 0 : COLOR91 : POKE&HDBA7 , ASC ( 1$ ) : DUMY=USR (&HD 
B30) : AT=AT+1: GOSUB1590 
1580 GOTO1520 

1590 LINE (10+AT*XVX8, 80)- (9+ (AT+DXXVX8, 79 
+YV*8), 255, BF: RETURN 

1600 LINE(10+AT*XVX8,80)-(9+(AT+l)XXV*8,79 
+YV*8),0,BF: COLOR, , 255: SETPAGE0, 1:LINE(0,8 
0)-(255, 143),91,BF,XOR:LINE(0, 144)-(255,20 
7 ) , VK- ( VK=0 ) X0R9 1 , BF : COPY (0 , 80 ) - (255 , 143 ) , 
1TO(0, 144), 1, TPSET: LINE (0, 144)- (255, 207) , 9 
1, BF, XOR: SETPAGE0, 0: X=10: Y=10: GOSUB1650 
1610 I FSTR I G ( 1 ) THEN1660ELSE I FSTR I G (3 ) THENG 
OSUB1650: RETURN 

1620 LX=X: LY=Y: DUMY=PAD(12) : X=X+PAD(13) : Y= 
Y+PADQ4) : IFX<0THENX=0ELSEIFX>255-AT*XV*8T 
HENX=255-AT*XV*8 

1630 IFY<0THENY=0ELSEIFY>211-YV*8THENY=211 
-YV*8 

1640 IFX=LXANDY=LYTHEN1610ELSECOPY(10, 144) 
- ( 10+AT*XV*8 , 143+YV*8 ) , ITO (LX, LY) , 0, XOR: GO 
SUB1650:GOTO1610 

1650 COPY (10, 144)-(10+AT*XV*8, 143+YV*8), 1T 
O(X,Y),0, XOR: RETURN 

1660 GOSÜB1650 : COPY ( 10 , 144 ) - ( 10+AT*XV*8 , 14 
3+YV*8) , 1T0(X, Y) , 0, TPSET: FORI=1TO250: NEXT: 
RETURN 

1670 IFVPEEK(&HDB16)=8!H8CTHENLD=2: VPOKE&HD 
B16, &H90: PUTSPRITE5, (128, 15) , , 36ELSELD=1: V 
P0KE&HDB16,&H8C:PUTSPRITE5, (128,15), ,35 
1680 RETURN 

1690 MP=3 : G0SUB2 150:1 FSTR I G ( 3 ) THENRETURNEL 
SEX1=X(1) : Y1=Y(1) : X2=X(2) : Y2=Y(2) : GOSUB114 
0: X1=X(2) : Y1=Y (2) : X2=X(3) : Y2=Y (3) : G0SUB114 
0: X1=X(3) : Y1=Y<3) : X2=X(1) : Y2=Y(1) : GOSUB114 
0: RETURN 

1700 MP=3:GQSUB2150: I FSTR IG (3) THENRETURNEL 
SEGOSUB1850:LINE(X(1), Y(l ) )- (X(2) , Y(2) ) , 0: 
LINE(X(2),Y(2))-(X(3), Y (3) ) , 0: LINE (X (3) , Y( 
3))-(X(l), Y(D) ,0: PAINT (0,0), 0,0: COPY(0,0) 
- (255 , 2 1 1 ) TO (0 , 0 ) , 0 , TPSET : SETPAGE0 , 0 : RETUR 
N 

1710 GOSUB2250: IFS=1THENVK=PQINT (X, Y) : RETU 
RNELSERETURN 

1720 PUTSPRITE1, (VPEEK (&HFA01) , VPEEK (&HFA0 
0 ) ) : VK= ( VKAND240 ) + ( ( ( VPEEK ( &HF A00 ) + 1 ) AND25 
5 ) /16 ) *4+ ( VPEEK (&HFA0 1 ) - 144 ) /16 : COLORVK : RE 
TURN 

1730 LVK=VK : VK= (VK+16) AND255 :LINE(144,0)-( 
207, 63) , VKXORLVK, BF, XOR: COLORVK: RETURN 
1740 FORI=1TO180:NEXT: IFSTRIG(1)THENIFVK<> 
PEEK(&HDDDl)THENPOKE&HDDD2, VK: DUMY=USR(&HD 
D8A) : DUMY=USR (&HDDD3 ) : GOSUB310: RETURNELSER 
ETURN 

1750 PUTSPRITE1, (VPEEK (&HFA01 ) , VPEEK (&HFA0 
0 ) ) : SP= ( ( (VPEEK (&HFA00 ) + 1 ) AND255 ) /16 ) *3+ ( V 
PEEK(&HFA01)-192)/16: RETURN 
1760 FORI=1TO180:NEXT: IFSTRIG(3)THENIFVK<> 
PEEK (&HDDD0 ) THENPOKE&HDDD2 , VK : DUMY=USR (&HD 
DAD) : DU«Y=USR (&HDDD3) : GOSUB310: RETURNELSER 
ETURNELSEC0PY(93,71)-(162, 141)TO(93, 71) , 1: 
LINE (95, 73)- (160, 139) , 255, BF: LINE(94, 72)- ( 
161, 139), 1,B: LINE (93, 71)- (162, 140), 1,B 
1770 BE ! =&HDE00+256 " 2+ I NT ( (SP- 1 ) /3 ) *768+ ( ( 
SP- 1 ) M0D3 ) * 16 : P0KE4HDD89 , I NT (BE ! /256 ) : POKE 
&HDD88, INT (BE! -256*PEEK (&HDD89) ) : POKE&HDBA 
5,4: POKE&HDBA6 , 4 : DUMY=USR (&HDD3E ) : X=0 : Y=0 : 
XB=0: YB=0: LINE (96, 74) -STEP (3, 3) , 255, B, XOR 
1780 IFSTRIG(3)THEN1840 

1790 LX=XB: LY=YB: DUMY=PAD(12) : X=X+PAD(13) : 
Y=Y+PAD(14) : IFX<0THENX=255ELSEIFX>255THENX 
=0 

1800 IFY<0THENY=255ELSEIFY>255THENY=0 
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1810 XB=X/16: YB=Y/16: I FLXO XBORLY< > YBTHBNL 
IHE(96+LX*4, 74+LY*4)-STEP(3, 3) , 255, B, XOR: L 
IHE(96+XB*4, 74+YB*4)-STEP(3, 3) , 255, B, XOR 
1 820 I FSTR I G < 1 ) THEHL I HE (96+XB*4 , 74+YB*4 ) -S 
TEP (3 , 3 ) , PEEK (&HDDD0 ) XORPEEK (&HDDD1 ) , BF , XO 
R : VP=&HDE00+ 1 HT ( (SP- 1 ) /3 ) *768+ < <SP- 1 ) MOD3 ) 
*16+XB+YB*48 : IFVPEEK < VP> =PEEK (&HDDD0 ) THEHV 
POKEVP , PEEK (&HDDD1 ) : DUMY=USR (&HDDD3 ) ELSEVP 
OKEVP, PEEK(&HDDD0) : DUKY=USR ( &HDDD3 ) 
1830 GOTO1780 

1840 C0PY<93,71)-(162, 141) , 1T0(93, 71) : FORI 
= 1TO250: HEXT: RETÜRH 

1850 BB! =&HDE00+256~2+IHT ( <SP-l)/3)*768+ ( ( 

SP-1)M0D3)*16: POKE&HDD89, IHT(BE! /256) : POKE 

&HDD88, IHT (BE! -256*PEEK (&HDD89) ) 

1860 VDP(9)=10: DUKY=USR(&HDB0C) : SETPAGE0 , 1 

1870 X=16:Y=16:F0RI=1T08: IFIMOD2=1THEHCOPY 

(0, 0)- (X-l, Y-l)TO(X, 0) : X=X*2ELSEIFY<211THE 

HCOPY (0 , 0 ) - (X- 1 , Y- 1 ) TO (0 , Y ) : Y=Y*2 

1880 HEXT:F0RI=1T04: IFX(I)=0THEHX(I>=1ELSE 

I FX ( I ) =255THEHX ( I ) =254 

1890 I FY ( I > =0THEHY ( I ) = 1 ELSE I FY ( I > =2 1 1THENY 
(I)=210 

1900 HEXT: VDP(9)=8:RETURH 
1910 P=1:GOSUB760 

1920 I FSTR IG ( 1 ) THE51960ELSE I FSTSIG (3 ) THBH1 

930ELSEPUTSPR I TE0 , (X(P)-3, Y(P)-4) , (VPEEK(& 

HF800 ) + 1 ) AHD15 , 42 : GOTO1920 

1930 FORI=1TO250:HBXT:GOSUB760: IFX(1)>X(2) 

THEITSWAPX(1) ) X(2) 

1940 I FY ( 1 ) > Y (2 > THEHSVAPY ( 1 ) , Y (2 ) 

1950 PÜTSPRITE0, (0,217) .-RETÜRH 

1960 FORI=1TO250:HEXT: IFSTRIG(1)THENPÜTSPR 

ITE0, (0,217):GOTO1980ELSEP=P+1: IFP>2THEHP= 

1 

1970 GOTO1920 

1980 GOSUB760: DÜMY=PAD(12) : X(P)=X(P)+PAD(1 
3) : Y(P)=Y(P)+PAD(14) : IFX(PX0THEHX(P)=0ELS 
E I FX (P ) >255THEHX (P ) =255 

1990 I FY (P ) <0THE!TY (P ) =0ELSE I FY (P) >21 1THEHY 
(P)=211 

2000 GOSUB760: IFSTRIG(1)THEH1980ELSEPUTSPR 

ITE0, (0,217):GOTO1920 

2010 X(3)=X(l)+2:Y(3)=Y(l)+2 

2020 L I HE (X (3 ) , Y (3 ) ) -STEP ( (X (2 ) -X ( 1 ) > *XV/2 

, (Y(2)-Y(1))*YV/2),255,B,X0R 

2030 I FSTR I G ( 1 ) THEN2 120ELSE I FSTR I G (3 ) THEN2 

040ELSE2030 

2040 FORI=1TO250:NEXT 

2050 L I HE (X (3 ) , Y (3 ) ) -STEP ( (X (2 ) -X ( 1 ) ) *XV/2 
, (Y(2)-Y(1))*YV/2),255,B,X0R 
2060 GOSÜB760 

2070 I F (X (2 ) -X ( 1 ) ) *XV/2+X (3 ) >255THEHI FYP< > 
2THEHX (2 ) =X ( 1 ) + (255-X (3 ) ) *2/XVELSEX ( 1 ) =X (2 
)-(255-X(3))*2/XV 

2080 I F ( Y (2 ) -Y ( 1 ) ) *YV/2+Y (3 ) >2 1 1THEH IFYP< > 
1THEHY (2)=Y(1)+(211-Y(3)) *2/YVELSEY ( 1 ) =Y (2 
)-(211-Y(3))*2/YV 

2090 I FX (3 ) <0THEH I FYP< > 2THEHX (1)=X(1)-X(3) 
*2/XV : X (3 ) =0ELSEX (2)=X(2)+X(3) *2/XV : X (3 ) =0 
2100 I FY (3 ) <0THEHIFYP< > 1THEHY ( 1 ) =Y ( 1 ) -Y (3 ) 
*2/YV: Y(3)=0ELSEY(2)=Y(2)+Y(3)*2/YV: Y(3)=0 
2110 RETURN 

2120 LIHE(X(3),Y(3))-STEP((X(2)-X(l))*XV/2 
, ( Y (2) -Y ( 1 ) ) *YV/2 ) , 255 , B, XOR: DUMY=PAD ( 12 ) : 
X(3)=X(3)+PAD(13):Y(3)=Y(3)+PAD(14): IFX(3) 
> 255THEHX (3 ) =255ELSE I FX (3 ) < -255THEHX (3 ) =-2 
55 

2130 IFY(3)>211THE1TY(3)=211ELSEIFY(3)<-211 
THEITY(3)=-211 

2140 LIHE(X(3),Y(3))-STEP((X(2)-X(l))*XV/2 
, (Y(2)-Y(1>)*YV/2),255,B,X0R: IFSTRIG(1)THE 
H2120ELSE2030 
2150 P=1:GOSUB2230 



2160 I FSTR I G ( 1 ) THE52 180ELSE I FSTR I G (3 ) =0THE 
NPUTSPR I TE0 , (X(P)-3, Y(P)-4), (VPEEK(&HF800) 
+1)AND15,42:GOTO2160 

2170 FORI=1TO250:HEXT:PÜTSPRITB0, (0,217):G 
OSUB2230: RETÜRH 

2180 FORI=1TO250:HEXT:PUTSPRITE0, (0,217): I 
FSTR I G ( 1 ) THEN : GOTO2200ELSEP=P+ 1 : I FP> HPTHEH 
P=l 

2190 GOTO2160 

2200 GOSUB2230 : DUMY=P AD (12) : X(P)=X(P)+PAD( 
13) : Y(P)=Y(P)+PAD(14) : IFX(P)>255THEHX(P)=2 
55ELSEIFX (P) <0THEHX (P)=0 

2210 IFY(P)>211THEHY(P)=211ELSEIFY(PX0THE 
HY(P)=0 

2220 GOSÜB2230: I FSTR I G ( 1 ) THEHFOR 1=1 TO20 : GO 
TO2200ELSECOLORSPR I TE (0 ) =0 : G0T02 160 
2230 LIHE(X(1),Y(1))-(X(2),Y(2)),255, ,XOR: 
LINE(X(2), Y(2))-(X(3), Y(3)),255, ,XOR: IFMP= 
3THEHLIHE(X(3) ,Y(3))-(X(1),Y(D), 255, , XORE 
LSELIHE(X(3),Y(3))-(X(4), Y(4)),255, , XOR: LI 
HE(X(4), Y(4))-(X(1),Y(1)),255, , XOR 
2240 RETÜRH 

2250 X=128: Y=106: FORI = 1TO250: HEXT: GOSUB229 
0 

2260 I FSTK IG ( 1 ) THEHS= 1 : GOSUB2290 : RETURHELS 
EIFSTRIG(3)THEHS=3: GOSUB2290 : RETURHELSELY= 
Y: LX=X: DUMY=PAD ( 12 ) : X=X+PAD ( 13 ) : Y=Y+PAD ( 14 
> : IFX<0THEHX=0ELSEIFX>255THEHX=255 
2270 I FY<0THEHY=0ELSE I FY> 2 1 1THEHY=2 1 1 
2280 I FY=LYANDX=LXTHEH2260ELSEL I HE (LX-2 , LY 
■ -2 ) -STEP (4,4), 255, B, XOR: GOSÜB2290 : GOTO2260 
2290 LIHE(X-2, Y-2)-STEP(4, 4) , 255, B, XOR: RET 
URH 

2300 PSET(X,Y),POIHT(X,Y):PRIHT#l, I$:DUMY= 
USR(8tH156) 

2310 X=X+8*LEH(I$): IH$="": AT=0: GOTO2380 

2320 I $= I HKEY$ : I FSTR I G ( 1 ) THEH2400 

2330 I FSTR I G (3 ) THEH I H$=" " : RETÜRH 

2340 I F I $=" " THEN2320ELSE I F I $=CHR$ ( 13 ) THEH2 

400 

2350 I F I $=CHR$ ( 8 ) THEH I F AT > 0THEHAT= AT- 1 : IH$ 

=LEFT$ ( I H$ , LEH ( I H$ ) - 1 ) : GQTO2380 

2360 I FAT<LEAHD I HSTR (" ABCDEFGH IJKLMHOPQRST 

UV¥XYZabcdefghijklmnopqrstuvwxyz0123456789 

" , I $ ) THEH I H$= I H$+ 1 $ : AT= AT+ 1 : GOTO2380 

2370 GOTO2320 

2380 PRESET (X, Y) , POIHT (X, Y) : PR IHT#1, IHS+CH 
R$ (2 1 9 ) +SPACES ( LE-LEH ( I H$ ) ) 
2390 GOTO2320 

2400 PRESET (X,Y), POIHT (X, Y) : PRIHT#1, IH$+SP 

ACES (LE-LEH ( IH$) +1 ) : RETÜRH 

3000 DATA CD, 08, D8.3E, 00, 21, 00, 40, CD, 24, 00 

, 3E, 04, D3, FD, 3E, 05, D3, FE, 21 

3010 DATA 00,00, 11, 00, 40, 01, 00, 80, CD, 51, D8 

, 3E, 06, D3, FD, 3E, 07, D3, FE, 21 

3020 DATA 00,80, 11,00, 40, 01, 00, 54, CD, 51, D8 

, 3E, 02, D3, FD, 3E, 01, D3, FE, 3E 

3030 DATA 00, 21 , 00, 40, CD, 24, 00, C9, CD, 08, D8 

,3E,00,21,00,40,CD,24,00,3E 

3040 DATA 04, D3, FD, 3E, 05, D3, FE, 21 , 00, 00, 11 

, 00, 40, 01, 00, 80, CD, 5E, D8, 3E 

3050 DATA 06,D3,FD,3E,07,D3,FE,21,00,80, 11 

, 00, 40, 01, 00, 54, CD, 5E, D8, 3B 

3060 DATA 02,D3,FD,3E,01,D3,FE,3E,00,21,00 

, 40, CD, 24, 00, C9, CD, 38, 01, CB 

3070 DATA 0F,CB,0F,E6,03,4F,06,00,21,C1,FC 

, 09, B6, 4F, 23, 23, 23, 23, 7E, E6 

3080 DATA 0C,B1,32,BC,D7,32,00,D8,CD,38,01 

, CB, 0F, CB, 0F, CB, 0F, CB, 0P, È6 

3090 DATA 03,4F,06,00,21,C1,FC,09,B6,4F,23 

, 23, 23, 23, 7E, CB, 0F, CB, 0F, E6 

3100 DATA 0C,B1,32,84,D7,32,C8,D7,C9,CD,6E 

, 01, DB, 98, 12, 13, 0B, 78, BI, 20 

3110 DATA F7,C9,CD,71,01, 1A,D3,98, 13,0B,78 

,B1,20,F7,C9 
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3120 RESTORE3000 

3130 FORI=0TQ234 : READH$ : POKE&HD780-I- 1 , VAL <" 
&H"+H$) : NEXT 

3230 ONKEYGOSÜB3240 : DUMY=ÜSR (&HD780) : RETUR 
N 

3240 I FME=40RME=5THE$"RETURNELSEBEEP ; DUMY=U 
SR(&HD7C4) : RETURN 
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Totaal: 38007 



10 REM MOUSES DATA 
20 REM 

30 REM Door: M. van der Graaf f 
40 REM <c> 1988 
50 REM MSX-Gids 
60 REM Lelystad 
70 REM 

80 REM initialisatie 

90 CLEAR200, &HDB00: C0L0R15, 1,1: SCREE 
N7: CLS: SETPAGE0, 0: OPEÏP'GRP: "AS1: VDP < 
9)=10 
100 REM 

110 REM data inlezen 

120 PRESET (0,0): PR I ÏÏT#1 , " Data wordt 
ingelezen " 



130 REM 

140 DATA 2A, F8, F7 
21, 80, Dl, 11, 80, 02 
47, 19, 10, FD, 11, 80 
00, 21, 80, D8, 11, 00 
00, C9, 00, 2A, 2A, F9 
11, 08, 00, 3A, A7, DB 
150 DATA 28, 04, 47 
01, 80, 08, E5, 7E, Al 
2A, 2A, F9, 3A, A5, DB 
F9, El, 10, E7, E5, 2A 
19, 22, 2C, F9, 2A, A8 
Cl, 10, CC, C9, C5, 2A 
160 DATA F9,E5,C1 
22, B3, FC, 2A, 2C, F9 
16, 00, 19, Dl, 22, B5 
5F, 01, Cl, C9, 04, 04 
22, E8, DC, CD.CB, DB 

FE, FF, C8, 21, 80, 00 
170 DATA E8,DC,CD 
00, C9, 21, 01, 00, 22 
0A, CD, A5, 00, 3A, EA 
2A, E8, DC, 22, 2A, F9 
CD, 21, DC, Cl, 10, F6 

FF, CA, 0A, DC, Cl, 10 
180 DATA CD, 29, DC 
C9, Cl, Cl, CD, C0, 00 
3A, EB, DC, 47, 7E, CD 
2A, 2A, F9, 23, 22, 2A 
22, 2C, F9, C9, 2A, 2C 
11, 00, 00, DD, 21, 95 
190 DATA CD, 5F, 01 
CD, 5F, 01, 32, E7, DC 
3F, CB, 3F, CB, 3F, CB 
7E, 4F, CB, 21, CB, 21 
3F, CB, 3F, CB, 3F, CB 
5F, 19, 79, B6, CD, A5 
200 DATA 3A, E6, DC 
21, CE, DC, 5F, 19, 7E 
21, 3A, E7, DC, E6, 1F 
DC, 5F, 19, 79, B6, CD 
03, 21, CE, DC, 5F, 19 
CB, 21, 3A, E7, DC, E6 
210 DATA 21, CE, DC 
00, CD, 29, DC, C9, 07 
00, 0D, 1B, 47, 30, 36 

00. 00. 00. 00. 00, 00 
A8, 00, 32, F8, F7, 3E 

01, DD, 77, 23, 22, 01 
220 DATA C9, 00, 00 
21, 00, 00, 22, 2C, F9 
22,2A,F9,06,04,F5 
2A, 2A, F9, 11, 10, 00 
10, EB, 2A, 2C, F9, 11 
Cl, 10, D5, C9, 00, 21 
230 DATA 00.22.2C 
10, C5, 21, 60, 00, 22 
CD, 74, 01, 32, F2, F3 
CD, 7D, DB, 2A, 2A, F9 
F9,D1,C1, 10, El, EB 
2A, 2C, F9, 11, 04, 00 



, 22, 07, DB, C3, 00, 00, 
, 3A, 2F, DB, B7, 28, 04, 
, D8, 01, 80, 02, CD, 59, 
, F8, 01, 80, 02, CD, 5C, 
, 22, A8, DB, 21, BF, 1B, 
, B7 

, 19, 10, FD, 06, 08, C5, 
, B9, CC, 7D, DB, CB, 39, 
, 5F, 16, 00, 19, 22, 2A, 
, 2C, F9, 3A, A6, DB, 5F, 
, DB, 22, 2A, F9, El, 23, 
2A 

, 3A, A5, DB, 3D, 5F, 19, 
, E5, 3A, A6, DB, 3D, 5F, 
, FC, DD, 21, CD, 00, CD, 
, 00, 00, 00, 21, 00, 00, 
, 3E, 0C, CD, A5, 00, 78, 
, 22 

, CB, DB, 3E, 0C, CD, A5, 
, 2C, F9, 06, 6A, C5, 3E, 
, DC, 47, C5, CD, 12, DC, 
, 06, 80, C5, CD, 39, DC, 
, 3E, 03, CD, D8, 00, FE, 
, DD 

, CD, 29, DC, Cl, 10, CA, 
, 06, FF, C9, 21, D6, DC, 
, A5, 00, 23, 10, F9, C9, 
, F9, C9, 2A, 2C, F9, 23, 
, F9, 2B, 22, 2C, F9, C9, 
, 00 

, 32, E6, DC, CD, 31, DC, 
, 3A, E6, DC, CB, 3F, CB, 
, 3F, 21, CE, DC, 5F, 19, 
, CB, 21, 3A, E7, DC, CB r 
, 3F, CB, 3F, 21, CE, DC, 
, 00 

, E6, 1F, CB, 3F, CB, 3F, 
, 4F, CB, 21, CB, 21, CB, 
,CB,3F,CB,3F,21,CE, 
, A5, 00, 3A, E6, DC, E6, 
, 7E, 4F, CB, 21, CB, 21, 
, 03 

, 5F, 19, 79, B6, CD, A5, 
, 06, 05, 04, 03, 02, 01, 
, 30, 30, 33, 38, 34, 00, 
, 00, 00, 00, 01, 0A, CD, 
, 00, 32, F9, F7, C9, 2A, 
, DD 

, 11, 00, 00, 3A, 3D, DD, 
, 06, 04, C5, 21, 90, 00, 
, 32, F2, F3, CD, 7D, DB, 
, 19, 22, 2A, F9, Fl, 3C, 
, 10, 00, 19, 22, 2C, F9, 
, 4A 

, F9, 2A, 88, DD, EB, 06, 
, 2A, F9, 06, 10, C5, EB, 
, EB, 13, D5, 11, 00, 00, 
, 11, 04, 00, 19, 22, 2A, 
, 11, 20, 00, 19, EB, D5, 
, 19 
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240 DATA" 22, 2C, F9, Dl, Cl, 10, C3, C9, 00, 

00. 21. 00, DE, 01, 00, 0F, 3A, D0, DD, 57, CD, 
74, 01, BA, 20, 06, 3 A, D2, DD, CD, 77, 01, 23, 
0B, 78, BI, 20, EE, 3A, D2, DD, 32, D0, DD, C9, 
21, 00, DE, 01, 00, 0F, 3A, Dl, DD, 57, CD, 74, 

01, BA, 20, 06, 3A, D2, DD 

250 DATA CD, 77, 01, 23, 0B, 78, BI, 20, EE, 
3A, D2, DD, 32, Dl, DD, C9, 00, 00, 00, DD, 21, 
00, DE, FD, 21, D0, 00, 06, 50, C5, DD, E5, El, 
11, 80, D8, CD, 6E, 01, 06, 30, DB, 98, 12, 13, 
23, 10, F9, E5, DD, El, FD, E5, El, 11, 80, D8, 
CD, 71, 01, 06, 30, IA, D3 

260 DATA 98, 13, 10, FA, 24, E5, FD, El, Cl, 
10, D2, C9, 11, 80, D8, 2A, 88, DD, 06, 10, C5, 
06, 10, CD, 74, 01, 12, 13, 23, 10, F8, 01, 20, 
00, 09, Cl, 10, EE, 3E, 01, 32, F6, FA, DD, 21, 
3D, 01, CD, 5F, 01, 11, 80, D8, 21, 00, 00, 06, 
10, C5, 06, 10, IA, CD, 77 

270 DATA 01, 13,23, 10, F8, 01, F0, 00, 09, 
Cl, 10, EE, 3E, 00, 32, F6 , FA, CD, 5F, 01, C9 
280 REM 

290 RESTQRE140: CG=0 
300 FORI=0TO852 

310 READHS ; CG=CG+ VAL <" &H" +H$ ) : POKE& 
HDB00^ I , VAL <" &H" +H$ ) 
320 NEXTI 



330 IFCG094235! THENSCREEN0 : PRIFT'Fo 
ut in regel 140-330. " : BEEP: EHD 
340 REM 



350 DATA 


FF, 


80, 


9F, 


A0, 


BF, 


BE, 


BD, 


BB, 


B7 


BB, BD, BE, 


A0, 


9F, 


80, 


FF, 


FF, 


01, 


F9, 


05, 


FD 


FD, 7D, BD, 


01, 


7F, 


41, 


4F, 


41, 


79, 


41, 


FF, 


FF 


80 , B6 , B6 , 


B6, 


B7, 


B8, 


BF, 


A0, 


AF, 


AF, 


AF, 


AF 


AF, 80, FF, 
F5, F5, F5, 


FF, 


01, 


51, 


59, 


5D, 


DD, 


3D, 


FD, 


05 


F5, 


F5, 


01, 


FF 












360 DATA 


00, 


00, 


00, 


1F, 


10, 


11, 


10, 


14, 


IA 


01, 00, 00, 


00, 


00, 


00, 


00, 


00, 


00, 


00, 


80, 


80 


00, 80, 40, 


20, 


10, 


88, 


48, 


38, 


00, 


00, 


00, 


FF 


80, 8F, 88, 


8B, 


8A, 


8B, 


8A, 


8A, 


98, 


AF, 


A0, 


A0 


9F, 80, FF, 


FF, 


01, 


Fl, 


11. 


91, 


91, 


91, 


11, 


11 


19, F5, 05, 


05, 


F9, 


01, 


FF 












370 DATA 


FF, 


80, 


SF, 


88, 


8B, 


8A, 


8B, 


8B, 


8B 


98, AF, A0, 


A0, 


9F, 


80, 


FF, 


FF, 


01, 


Fl, 


11, 


Dl 


Dl, Dl, 11, 


11, 


19, 


F5, 


05, 


05, 


F9, 


01, 


FF, 


FF 


80, AA, 95, 


AA, 


95, 


AA, 


95, 


AA, 


95, 


AA, 


95, 


AA 


95, 80, FF, 


FF, 


01, 


A9, 


55, 


A9, 


55, 


A9, 


55, 


01 


7F, 41, 4F, 


41, 


79, 


41, 


FF 












380 DATA 


FF, 


80, 


80, 


80, 


80, 


81, 


83, 


87, 


81 


81, 81, 80, 


80, 


80, 


80, 


FF, 


FF, 


01, 


01, 


01, 


01 


81, Cl, El, 


81, 


81, 


81, 


01, 


01, 


01, 


01, 


FF, 


FF 


80, 80, 80, 


80, 


81, 


83, 


87, 


87, 


83, 


81, 


80, 


80 


80, 80, FF, 


FF, 


01, 


01, 


01, 


01, 


01, 


01, 


El, 


El 


01, 01, 01, 


01, 


01, 


01, 


FF 












390 DATA 


FF, 


80, 


80, 


80, 


80, 


81, 


81, 


81, 


87 


83, 81, 80, 


80, 


80, 


80, 


FF, 


FF, 


01, 


01, 


01, 


01 


81, 81, 81, 


El, 


Cl, 


81, 


01, 


«•1, 


01, 


01, 


FF, 


FF 


80, 80, 80, 


80, 


80, 


80, 


87, 


87, 


80, 


80, 


80, 


80 


80, 80, FF, 


FF, 


01, 


01, 


01, 


01, 


81, 


Cl, 


El, 


El 


Cl, 81, 01, 


01, 


01, 


01, 


FF 












400 DATA 


FF, 


80, 


BF, 


Al, 


Al, 


Al, 


Al, 


BF, 


80 


A0, A0, 80, 


A0, 


B7, 


80, 


FF, 


FF, 


01, 


6D, 


05, 


01 


05, 05, 01, 


05, 


05, 


05, 


01, 


05, 


6D, 


01, 


FF, 


FF 


80, BF, A0, 


A0, 


A0, 


A0, 


BF, 


80, 


A0, 


A0, 


80, 


A0 


B7, 80, FF, 


FF, 


01, 


FD, 


05, 


05, 


05, 


05, 


FD, 


01 


05, 05, 01, 


05, 


6D, 


01, 


FF 












410 DATA 


FF, 


80, 


BF, 


Al, 


Al, 


Al, 


Al, 


Al, 


Al 


Al, Al, Al, 


Al, 


BF, 


80, 


FF, 


FF, 


01, 


6D, 


05, 


01 


05, 05, 05, 


01, 


05, 


05, 


01, 


05, 


6D, 


01, 


FF, 


FF 


80, BB, Al, 


81, 


A0, 


Al, 


B7, 


80, 


A0, 


A0, 


A0, 


A0 


BF, 80, FF, 


FF, 


01, 


7D, 


05, 


05, 


05, 


05, 


05, 


05 


05, 05, 05, 


05, 


FD, 


01, 


FF 













420 


DATA 


FF, 


80, 


B7, 


A0, 


80, 


A0, 


A0, 


B6, 


80 


A0, 


A0 , A0 , 


A0, 


BF, 


80, 


FF, 


FF, 


01, 


6D, 


05, 


05 


01, 


05, ED, 


01, 


05, 


05, 


05, 


05, 


FD, 


01, 


FF, 


FF 


80, 


B7, Al, 


80, 


Al, 


Al, 


A0, 


81, 


Al, 


Al, 


80, 


Al 


BB, 


80, FF, 


FF, 


01, 


7D, 


05, 


05, 


05, 


05, 


05, 


05 


05, 


05, 05, 


05, 


7D, 


01, 


FF 












430 


DATA 


FF, 


80, 


BF, 


A0, 


A0, 


A0, 


A0, 


A0, 


A0 


BF, 


84, 80, 


84, 


86, 


80, 


FF, 


FF, 


01, 


El, 


21, 


21 


21, 


2D, 25, 


21, 


E5, 


05, 


01, 


05, 


ED, 


01, 


FF, 


FF 


80, 


BF, A0, 


A0, 


A0, 


A0, 


A0, 


A0, 


A0, 


A0, 


A0, 


A0 


BF, 


80, FF, 


FF, 


01, 


FD, 


05, 


05, 


05, 


05, 


05, 


FD 


89, 


91, Al, 


Cl, 


81, 


01, 


FF 












440 


DATA 


FF, 


80, 


80, 


BB, 


AB, 


A8, 


BB, 


83, 


80 


83, 


83, 80, 


83, 


83, 


80, 


FF, 


FF, 


01, 


01, 


6D, 


6D 


01, 


6D, 6D, 


01, 


6D, 


6D, 


01, 


6D, 


6D, 


01, 


FF, 


FF 


80, 


81, 83, 


87, 


81, 


81, 


80, 


80, 


81, 


81, 


87, 


83 


81, 


80, FF, 


FF, 


01, 


81, 


Cl, 


El, 


81, 


81, 


01, 


01 


81, 


81, El, 


Cl, 


81, 


01, 


FF 












450 


DATA 


FF, 


80, 


80, 


80, 


80, 


88, 


98, 


BE, 


BE 


98, 


88, 80, 


80, 


80, 


80, 


FF, 


FF, 


01, 


01, 


01, 


01 


11, 


19, 7D, 


7D, 


19, 


11, 


01, 


01, 


01, 


01, 


FF, 


FF 


80, 


80, 81, 


82, 


84, 


8C, 


92, 


9E, 


9E, 


9E, 


8C, 


80 


80, 


80, FF, 


FF, 


01, 


01, 


81, 


41, 


21, 


23, 


25, 


19 


01, 


01,01, 


01, 


01, 


01, 


FF 












460 


DATA 


FF, 


80, 


A8, 


90, 


A8, 


84, 


82, 


81, 


80 


80, 


80, 80, 


80, 


80, 


80, 


FF, 


FF, 


01, 


01, 


01, 


01 


01, 


01, 01, 


81, 


41, 


21, 


15, 


09, 


15, 


01, 


FF, 


FF 


80, 


BB, AA, 


BB, 


AA, 


AB, 


80, 


88, 


94, 


A2, 


BE, 


BE 


BE, 


80, FF, 


FF, 


01, 


B9, 


Al, 


Al, 


Al, 


B9, 


01, 


01 


01, 


01,01, 


01, 


01, 


01, 


FF 












470 


DATA 


FF, 


80, 


A0, 


90, 


A9, 


94, 


A9, 


93, 


A3 


82, 


82, 82, 


82, 


83, 


80, 


FF, 


FF, 


01, 


01, 


01, 


81 


81, 


81, Cl, 


Cl, 


41, 


41, 


41, 


41, 


Cl, 


01, 


FF, 


FF 


80, 


80, 80, 


80, 


80, 


80, 


81, 


81, 


87, 


89, 


91, 


92 


9C, 


80, FF, 


FF, 


01, 


0D, 


1D, 


39, 


71, 


El, 


Cl, 


81 


01, 


01, 01, 


01, 


01, 


01, 


FF 












480 


DATA 


FF, 


80, 


80, 


81, 


82, 


84, 


88, 


90, 


88 


84, 


82, 81, 


80, 


80, 


80, 


FF, 


FF, 


01, 


01, 


01, 


81 


41, 


21,11, 


09, 


11, 


21, 


41, 


81, 


01, 


01, 


FF, 


FF 


80, 


80, 81, 


83, 


87, 


8F, 


9F, 


8F, 


87, 


83, 


81, 


80 


80, 


80, FF, 


FF, 


01, 


01, 


01, 


81, 


Cl, 


El, 


Fl, 


F9 


Fl, 


El, Cl, 


81, 


01, 


01, 


FF 












490 


DATA 


FF, 


80, 


80, 


80, 


81, 


82, 


84, 


88, 


90 


98, 


87, 80, 


80, 


80, 


80, 


FF, 


FF, 


01, 


01, 


81, 


41 


41, 


21, 21, 


11, 


11, 


09, 


E9, 


19, 


01, 


01, 


FF, 


FF 


80, 


80, 80, 


81, 


83, 


87, 


8F, 


9F, 


9F, 


87, 


80, 


80 


80, 


80, FF, 


FF, 


01, 


01, 


81, 


Cl, 


Cl, 


El, 


El, 


Fl 


Fl, 


F9 , F9 , 


19, 


01, 


01, 


FF 












500 


DATA 


FF, 


80, 


80, 


9F, 


90, 


90, 


90, 


90, 


90 


90, 


90, 90, 


9F, 


80, 


80, 


FF, 


FF, 


01, 


01, 


F9, 


09 


09, 


09, 09, 


09, 


09, 


09, 


09, 


F9, 


01, 


01. 


FF, 


FF 


80, 


80, 9F, 


9F, 


9F, 


9F, 


9F, 


9F, 


9F, 


9F, 


9F, 


9F 


80, 


80, FF, 


FF, 


01, 


01, 


F9, 


F9, 


F9, 


F9, 


F9, 


F9 


F9, 


F9, F9, 


F9, 


01, 


01, 


FF 












510 


DATA 


FF, 


80, 


80, 


83, 


84, 


88, 


90, 


90, 


90 


90, 


88, 84, 


83, 


80, 


80, 


FF, 


FF, 


01, 


01, 


Cl, 


21 


11, 


09, 09, 


09, 


09, 


11, 


21, 


Cl, 


01, 


01. 


FF, 


FF 


80, 


80, 83, 


87, 


SF, 


9F, 


9F, 


9F, 


9F, 


8F, 


87, 


83 


80, 


80, FF, 


FF, 


01, 


01, 


Cl, 


El, 


Fl, 


F9, 


F9, 


F9 


F9, 


Fl, El, 


Cl, 


01, 


01, 


FF 












52e 


DATA 


00, 


00, 


00, 


00, 


0F, 


0E, 


0F, 


0B, 


01 


00, 


00, 00, 


00, 


00, 


00, 


00, 


00, 


00, 


00, 


00, 


00 


00, 


00, 80, 


C0, 


E0, 


70, 


30, 


00, 


00, 


00, 


00, 


FF 


80, 


80, 80, 
80, FF, 


80, 


BF, 


80, 


80, 


88, 


94, 


A2, 


BE, 


BE 


BE, 


FF, 


01, 


01, 


01, 


01, 


FD, 


01. 


01, 


01 


01, 


01,01, 


01, 


01, 


01, 


FF 












530 


DATA 


FF, 


80, 


80, 


80, 


80, 


BF, 


BF, 


80, 


88 


94, 


A2, BE, 


BE, 


BE, 


80, 


FF, 


FF, 


01, 


01, 


01, 


01 


FD, 


FD, 01, 


01, 


01. 


01, 


01, 


01. 


01, 


01. 


FF, 


FF 


80, 


80, BB, 


AB, 


A8, 


BB, 


83, 


80, 


9E, 


8E, 


9E, 


BA 


B0, 


80, FF, 


FF, 


01. 


01, 


6D, 


6D, 


01 


6D, 


6D, 


01 


6D, 


6D, 01, 


6D, 


6D, 


01, 


FF 













RAfTi PiATA FF 
0*fcW X?A ia r r , 


OW , 


Af?) 

OW , 


JJ>L> , 


AR AR AR TKT) 


AA 


A A RO) RO) RO) 
A*t , ö W , OW , Oty, 


OW , 


Af?) 
OW , 


TT "R 

r r , 


"PT"R f?»1 f?) 1 "HT) 
r r , w x , w x , i-/ j./ , 


1 

ij , 


rt> rr rifi fT)i 

OU j üü, JJJJ , W X , 


W X , 


f?) 1 
W X , 


0) 1 

W X ) 


Ch'X f?)1 f?)1 P"R 
wx, wx, W.L, rr. 




O /Tv Q fh T5T5 A A 
OW, ÖW, Xrr> , AA, 


"R A 
I5A , 


"DO 

, 


A A 
AA , 


QO QQ O/Tv Q fTï 

o«c, OO, OW, OW, 


RO) 
ow , 


OW , ÖW , r r , rr, 


W X , 


f?l 1 

W X , 




1 R 1 Ti T)R RH 
ÏO , X U , X^O , ÜUj 


A 1 
ft x , 


/-> 'i /Tv 1 /Tv 1 /Ti 1 

Li, Wl, W 1 , W X , 


f7> 1 
W X , 


f?l 1 
W X , 


r r 






550 DATA FF, 


Q /Tv 

O09 , 


Q /Tv 

OW , 




AA "DA "DO A TJ 
AA , DA , ±5/d , AJ3 , 


AfTi 
ÖW , 


O /Tl Q /T» Q /Tl O /Tv 

ÖW , ÖW , ÖW , öW , 


OW , 


AfTt 
OW , 


r r , 


"PTTT fTï 1 f?i 1 "RT) 

r r , w x , w x , xyu , 


PR 


AR Dn ar or 
AO , Ï>U , AO , <SO , 


^X/ , 


W X , 


f7i 1 
W X , 


f?)1 f?)1 fT>1 "R"P 

wx, wx, w±, rr , 


r r , 


"CTT7 T?T? TTT? ITT? 

rr,rr,rr,rr, 

TT TT TTT? TT TT TTT? 

r r , r r , rr , rr , 


r r , 


r r , 


r r , 


•RT? TT 

rr, rr, rr, rr, 


FF 
rr j 


TT TT 

rr , 


TT TT 

r r , 


TT TT 

rr , 


TT TT TT TT T?TT T7T? 

rr, rr, rr, rr , 


FF 

rr , 


T? T? TT TT- T?T? TT TT 

rr, rr, rr, r r , 


x*x* 
rr , 


TT TT 

r r , 


TT TT 

r r 






PC A /Ti Tv A T A Q O 

OOW X9A i A ö<£ , 


A A 


O A 
<£/ö , 


/Tv /Ti 

WW , 


OA /l /\ RO fTifTi 
«£ö, ^t^t, ö^, ww, 


0)0) 


fhfh fhfh fhfh fh fh 

W W , Wy? , WW , WW , 


/Tv /Tv 

WW , 


WW , 


WW , 


fTifTi 0)0) 0)0) 0)0) 
WW, WW, WW, WW, 


OiO) 
WW , 


OiO) 0)0) 0)0) 0)0) 

WW , WW , WW , WW , 


WW , 


W VJ ) 


0)0) 
WW , 


(?>(?) f?j(?] (?J(?) 0)0) 
WW, WW, Y/Jv, x/x/, 


FF 


AfTi AfTi AfTi RO) 
OV) Ov, OW, OW , 


OW , 


OW , 


OW , 


RO) RO) RO) RO) 


80 


Af?» AfTi *RT? FF 

ö w , ö w , rr , rr, 


W X , 


W X , 


(?) 1 

W X , 


f?)1 (7)1 f?)1 (7)1 
wx, wx, w±, wx, 


W x , 


f7,1 (7,1 /7>1 /T» 1 
W X , Ifll, w x , Wi, 


f7) 1 
W X , 


(?) 1 
W X , 


r r 






pr /7 />, Tv A T A T?X? 

O ( W JJA 1 A rr, 


Af?» 
OW , 


A rTi 
oW , 


OW , 


AfTi AfTi AfTi AfTi 
OW , OW , OW , OW , 


RO) 

OW , 


Afh Q /Ti Q /Ti Q/Ti 
ÖW , OW , OW , ÖW , 


r r , 


/Tv /Tj 

WW , 


fTïf?) 

ww , 


TtC OiA OiA 0)A 
ru, w^i-, w^t, w*t, 


OiA 
W ft , 


/T« A fh A fTï A (T> yl 

W4- , Wft , W4- , 1^4 , 


rTi A 
W4t , 


f?i /l 
Wft , 


f?i A 
W** , 


fTi A T?f~* fTifTi 0)0) 

W't, rv/j ww, ww, 


FF 
r r , 


Q /Tv Q /Ti Q /Tl Q /Tl 

OW, oW , öW , OW, 


Af Ti 
OW , 


Af?) 
O W , 


O /T> 

O W , 


AfTi AfTi AfTi T?T? 

öw, ow, ow, rr, 


OiO) 
WW , 


fhfh fhfh fh fh TT /Tv 

ww , ww , WW , rw , 


1 f?i 
XW , 


1 f?i 
XW , 


1 O) 
X w , 


1/7) 1fT) 1fT) 1f?i 
XW , XW , XW, XW, 


1 0) 
xW , 


1 /7> T (7> TT/Tv rTi /Ti 

xv?, X W , r W , ww , 


WW , 


WW , 


0)0) 
WW 






COrti "Pi A T A TT TT 

OÖW 19 A i A rr, 


Q /Tv 

OW , 


A/7i 
OW , 


A f?) 
OW , 


AfTi AfTi AfTi AfT) 
OW, ÖW, OW, OW, 


RO) 
OW , 


TT TT /Tl />, fhfh fhfh 

rr, W W , ww, ww, 


WW , 


(hO) 
WW , 


0)0) 
WW , 


CO) AO) AO) AO) 
V_/W , f£W, 'tW, ^*W, 


AO) 


A 0) A 0) A 0\ A (h 

ft W , ffc W , ft W , ft W , 




f?)f?) 

WW , 


f?)f?) 

WW , 


f?)f?) f?)f?) 0)0) 0)0) 

WW , WW , WW , WW , 


FF 
r r , 


öl, O x , 01 , 0 X , 


A 1 
O X , 


A 1 
0 X , 


r r , 


0)0) 0)0) 0)0) 0)0) 

WW , WW , WW , WW , 


0)0) 
ww , 


(h(7\ fhfh OiO) OiO) 
WW , WW , WW , WW , 


17)0) 
WW , 


WW , 


0)0\ 

ww , 


0)0) 0)0) 0)0) 0)0) 

ww , ww , ww , ww , 


0)0) 

WW , 


fTifTi OiO) 0)0\ 0)0) 
WW, WW, WW, WW, 


WW , 


0)0) 
WW , 


0)0) 
WW 






R O /?> T^AT fi TT f' 

Oyw X>A i A rU, 


A A 


a 

o4t , 


a yi 


RA TiC OiO) 0)0) 

ö4t, rU) ww, ww, 


fTifTi 
WW , 


f?^r7ï (h(h 0\0\ ITïOi 
WW, WW, WW , w w , 


f?)f?) 
WW , 


f?)f?) 
WW , 


fTif?) 
WW , 


0)0) 0)0) 0)0) 0)0) 
WW, WW, WW, WW, 


0)0) 

WW , 


WW , WW , wv? , WW , 


WW , 


0\O\ 
WW , 


/Ti /Ti 

WW , 


0)0) 0)0) 0)0) 0)0) 
WW , WW , WW , WW , 


Ff?) 
r w , 


yw, yvy, rw, ww, 


/Ti /Ti 

WW f 


/Ti /Tv 

WW , 


fTifTi 

WW , 


fTifTi fTifTi fTifTi 0)0) 
WW , WW , WW , WW , 


CAO) 
w w , 


WW , WQ9 , WCi? , wQP , 


/Tv /Tv 
WW j 


/Tv /Ti 

WW , 


/Ti /Tv 
WW , 


fhfh fhfh fhfh fhfh 
WW , WW , WW , WW , 


fTifTi 
WW , 


/Ti /O» /X /"?\ /Ti /Tt /T\ /Ti 

0w> , ww , v90 , ww , 


/Ti /Ti 
W09 , 


/Tl /Ti 

WW , 


/Ti (h 
WW 






/Tv rti T\ A -^P A /Tv /Tv 

O00 DATA 00, 


/Tv /Tv 

090? , 


/Tv /Tv 

WW , 


/Tv /Tv 

09w , 


fhfh fhfh fhfh fhfh 

WW , WW , WW , WW , 


fh fh 
WW , 


00 , 00 , 00 , 00 , 


/Ti /Tv 
WW , 


/Ti /Tv 

WW , 


(Tv /Ti 
WW , 


fhfh fhfh fhfh fhfh 

WW, WW, WW, WW, 


fhfh 
WW , 


<Tv /Tv /Tv /Tv /Tv /Tv /Ti /Ti 

W0 , ww , W0 , , 


/Ti /Ti 
WW , 


/Tv /Tv 

WW , 


(Tt/Ti 
WW j 


fhfh fhfh fhfh fhfh 

WW , WW , WW , WW , 

OiO) 0)0) 0)0) 0)0) 
yJW , WW , WW , WW , 


fTifTi 
WW , 


, WW, WW, WW, 


ww , 


0)0) 
WW , 


fT)f?) 
WW , 


0)0) 
ww , 


/Ti /Tv /Ti/Ti /Tv/Tl /7»/7k 
WW, WW, WW, WW, 


(7\(7\ 
WW j 


f?)f?) 
WW , 


fTifTi 
WW j 


OiO) 0)0) 0)0) 0)0) 
VJ\Cf y WW , WW , WW j 


0)0) 
ww , 


/Tv /Ti Os /Ti /Tv /T> /Tv /Tv 

wv? , ww , wv? , k) w , 


WW , 


0)0\ 
WW , 


OxOï 
WW 






£^•1/9* TtATA «Ti /Ti 
O 103 DA I A 0?W } 


WW } 


WW , 


f?if?i 
WW , 


fTifTi fTifTi fTifTi fTifTi 
WW , WW , WW , WW 5 


0)0) 
WW , 


/>, /7s /Tv rT) /Ti />> OïOi 

WO?, ww, wW, W0? } 


WW j 


/Tv /Tv 

WW , 


0)0) 
WW , 


fTifTi 0)0) 0)0) 0)0) 
WW , WW , WW , WW j 


0)0) 

WW , 


/Ti /Ti fi\fh 0\ (~h /Ti /Ti 

ww , ww , wO? , WO? , 


fTifTi 

WW 


f?)f?» 
WW 


0)0) 
WW 


0)0) 0)0) 0)0) 0)0) 
WW , WW , WW , WW 


0)0) 
\J w , 


/T> /Tv /Ti />> /Tv/Tv 0\0\ 
Wv, WW, WO?, WWj 


WW } 


WW j 


fTifTi 
WW 


fTifTi fTifTi 0)0) 0)0) 
WW , WW , WW , WW j 


0)0) 


/Tv /Tv /Ti /Ti fTi/Tv /Ts/Ti 

0/09 , 090? , 09w , ww j 


WW 


WW 


WW 


fTifTi OiO) 0)0) 0)0) 
WW , WW , WW , WW 


0)0) 

WW , 


/Ti/Tv /Tv/Ti /Tv /Tv /Tv/Tv 
WW , WW , WW , WW j 


WW 


/Ti /Ti 

WW j 


WW 






/O O /Ti Ti A T A /T> /Ti 

O^w DA 1 A w09 


/Ti /Ti 

WW 


fTtfTi 

WW 


WW 


00, 00, 00, 00 


0)0) 
> WW , 


/T»i9v /Tv /Ti /Ti /Ti /Ti /Ti 
wO? , WW , <6*W , 0?W j 


WW 


/Tv /Tv, 

WW 


fTifTi 
WW 


fTifTi fTifTi 0)0) 0)0) 
WW, WW, WW, WW 


WW , 


/T\/Ti /Ti /Ti /TviTi /Tv/Tv 

w09 , 0909 , Ww , 0909 


/Ti /Tv 
WW 


f/)f?i 
WW 


0\0) 
> WW 


fTifTi fTifTi 0)0) 0)0) 
, WW , WW , WW , WW 


0)0) 

, WW , 


/Ti /Ti /Ti /Tv /Tv/Tv /Ti /Tv 

0909 , 0909 , 0909 , 0909 


/Tv /Tv 

WW 


/Tv fh 

v WW 


0)0\ 
WW 


fTifTi 0)0) 0)0) OiO) 
k WW , WW , WW , WW 

fTifTi fTifTi fTifTi OiO) 
, WW , WW , WW , WW 


fTifTi 
} ww , 


/Ti/Tv /Ti /Ti /T» /Ti /Tv /Tv 
WW , W09 , WW , WW 


/Ti /Ti 
, WW 


/Ti /Tv 

. WW 


/Tv /Ti 

, WW 


0)0) 
, WW , 


/Ti /T> /Ti /T> fhfh /Tv /Ti 

0909 , 09 09 , 09w , 0909 


WW 


OiOi 
. WW 


OiO) 
1 WW 






O /Tv TiATA f?>^ 
OOW L?A 1 A WW 


(hO\ 
, WW 


f?lf?) 
, WW 


O)0\ 
, WW 


fTifTi OiO) 0)0) 0)0) 
, WW, WW, WW, WW 


0)0) 

, WW , 


/Tv /Ti f Ti /Ti /Ti /Tv /Tv /Tv 

0909 , 0909 , 0909 , 0909 


/Ti/Ti 
v WW 


, WW 


OiO) 
, WW 


fTifTi 0)0) 0)0) 0)0) 
, WW , WW , WW , WW 


0)0) 

, WW , 


/Ti /A /Tv/Tv /Ti /Ti /Ti /Ti 
WW» , WW , WW , WW 


, ww 


0)0) 
, WW 


0)0) 
, WW 


fTifTi OiO) 0)0) 0)0) 
, WW , WW , W yJ , hJhs 


0)0) 


/Ti /Ti /Ti /Ti /Ti /T» /Ti /Ti 
WW , WW, 09W , WW 


. WW 


0)0) 
, WW 


0)Oi 
, WW 


0)0) 0)0) 0)0) 0)0) 

, WW , WW , WW , WW 


0)0) 


/Ti /T) /7»/?i /Tv /Ti /7i*9i 
WW; , W^ , WW , WW 


, WW 


f?)f?) 
, WW 


f?)f?) 

, WW 


fTifTi fTifTi fTifTi 0)0) 
, WW , WW , Wx/ , HJVs 


0)0) 


/Ti /Ti' /Tv' /Tv />( /Tl /Ti /Ti 

0909 , 070? , 0909 , 090? 


fTifTi 
, WW 


OiO) 

, WW 


fTtfTi 
, WW 






A ' fh T~\ A T A /Ti /Tv 

O409 DA 1 A 0303 


/Ti /Ti 

, WW 


/Tv /Ti 

, WW 


fTï /Ti 
, WW 


fhfh OiO) 0)0) 0)0) 
, WW , WW , WW , WW 


OiO) 
, WW , 


/Tv /Tv /Tv /Tv /Ti /Ti /Ti /Ti 

WO? , 09W, 0909, w09 


, WW 


, WW 


fTifTi 
, WW 


fTifTi fTifTi 0)0) OiO) 
, WW , WW , WW , WW 


0)0) 
, w w , 


WW , WW , WW , WW 


fTïf?) 
, WW 


f?)(?) 
, WW 


0)0) 
, WW 


0)0) 0)0) 0)0) 0)0) 
, ww , ww , ww , ww 


(7)C?) 

, xV xV , 


(hO\ (h(h Q\Q\ (h(h 
WW , WW , W/W , WW 


, WW 


0)O) 
, WW 


0)0) 
, WW 


0)0) 0)0) 0)0) 0)0) 
, ww, ww, ww, ww 


(7j<7) 


/Ti /Ti /Ti /Ti /Ti /Ti /Tv /Tv 

WW, WW, WW, WW 


, WW 


0)0\ 
, WW 


0)0) 
, WW 


fTifTi fTifTi 0)0) 0)0) 
, WW , WW , WW , WW 


, WW , 


/Ti /Tv /> /Ti /Ts /Tv /T> /T> 

0909 , W 0? , W 09 , 0309 


f?lf?t 
, WW 


f?ïf?l 
, WW 


fTifTi 
, WW 






jCCT/T» r^ATA /Ti /Ti 

oo0 DA IA 00 


/Ti /Ti 

, wW 


, WW 


fhfh 
, WW 


fhfh fhfh fhfh fhfh 

, WW , WW , WW , WW 


fhfh 
, WW , 


/Ti /Ti /Tl /Ti /Tv /Ti /Ti /Ti 

0909 , 09 w , 0309 , 090? 


/Tv /Tv 

, WW 


fh /Tv 

, WW 


/Ti fh 

, WW 


fhfh fhfh fhfh fh fh 
, WW , WW , WW , WW 


fTifTi 
, WW , 


00, 00, 00, 00 


, 00 




, 00 


, 00, 00, 00, 00 


. 00. 


/Tv /Ti /Tv /Ti /Ti /T\ /Tv 

09 09 , 03 03 , 0903 , 0303 


/Tv /Tv 
, WW 


/T, /Tv 

, WW 


fhfh 
, WW 


fhfh fhfh fhfh fh fh 
, WW , WW , WW , WW 


fTifTi 
, WW , 


00, 00, 00, 00 


, 00 


, 00 


, 00 


, 00, 00, 00, 00 


, 00, 


00, 00, 00, 00 


, 00 


, 00 


, 00 







660 DATA 00,00,00,00,00,00,00,00,00, 
00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 
00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, FF, 
80, 9F, A0, BF, BE, BD, BB, B7, BB, BD, BE, A0, 
9F, 80, FF, FF, 01, F9, 05, FD, FD, 7D, BD, 01, 
7F, 4F, 4F, 4F, 4F, 41, FF 
670 REM 

680 RESTORE350 : CG=0 
690 FORI=0TO2047 

700 READHS : CG=CG+VAL <" &H" +H$ ) : VPOKE 
&HF000+ 1 , VAL <" &H" +H$ > 
710 NEXTI 

720 IFCGO 185042 1 THENSCREEN0: PRINT" F 
out in regel 350-720. " : BEEP: END 
730 REM 



740 


DATA 


FF, 


00, 


FC, 


01, 


FF, 


10, 


00, 


01, 


FF, 


20, 


14, 01, 


0F, 


00, 


0C, 


01, 


0F, 


10, 


10, 


01, 


0F, 


20, 


04, 01, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 00, 


EE, 


00, 


00, 


00 












750 


DATA 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 


00, 


EE, 


00, 


00, 00, 


EE, 


00, 


00, 


00, 


FF, 


00, 


A4, 


0B, 


FF, 


10, 


A4, 0B, 


FF, 


20, 


A4, 


0B, 


0F, 


00, 


A4, 


0B, 


0F, 


10, 


A4, 0B, 


0F, 


20, 


A4, 


0B 












760 


DATA 


FF, 


30, 


ic, 


01, 


FF, 


40, 


24, 


01, 


FF, 


50, 


4C, 01, 


0F, 


30, 


18, 


01, 


0F, 


40, 


20, 


01, 


0F, 


50, 


50, 01, 


1F, 


30, 


28, 


01, 


1F, 


40, 


2C, 


01, 


1F, 


50, 


30, 01, 


2F, 


30, 


34, 


01, 


2F, 


40, 


38, 


01, 


2F, 


50, 


3C, 01, 


3F, 


30, 


40, 


01 , 


3F, 


40, 


44, 


01, 


3F, 


50, 


48, 01, 


EE, 


00, 


00, 


00 












77C 


DATA 


FF, 


40, 


A4, 


0C, 


FF, 


50, 


A4, 


0C, 


0F, 


30, 


A4, 0C, 


0F, 


40, 


A4, 


0C, 


0F, 


50, 


A4, 


0C, 


1F, 


30, 


A4, 0C, 


1F, 


40, 


A4, 


0C, 


1F, 


50, 


A4, 


0C, 


2F, 


30, 


A4, 0C, 


2F, 


40, 


A4, 


0C, 


2F, 


50, 


A4, 


0C, 


3F, 


30, 


A4, 0C, 


3F, 


40, 


A4, 


0C, 


3F, 


50, 


A4, 


0C, 


FF, 


30, 


A4, 0C, 


EE, 


00, 


00, 


00 












78(2 


i DATA 


FF, 


60, 


54, 


01, 


FF, 


70, 


58, 


01, 


FF, 


80, 


5C, 01, 


0F, 


60, 


60, 


01, 


0F, 


70, 


64, 


01, 


0F, 


80, 


8C,'01, 


1F, 


60, 


68, 


01, 


1F, 


70, 


6C, 


01, 


1F, 


80, 


70, 01, 


2F, 


60, 


78, 


01, 


2F, 


70, 


7C, 


01, 


2F, 


80, 


74, 01, 


3F, 


60, 


80, 


01, 


3F, 


70, 


84, 


01, 


3F, 


80, 


94, 01, 


EE, 


00, 


00, 


00 












790 DATA 


FF, 


70, 


A4 


0D, 


FF, 


80, 


A4, 


0D, 


0F, 


60, 


A4, 0D, 


0F, 


70, 


A4, 


0D, 


0F, 


80, 


A4, 


0E, 


1F, 


60, 


A4, 0D, 


1F, 


70, 


A4 


0D, 


1F, 


80, 


A4, 


0D, 


2F, 


60, 


A4, 0D, 


2F, 


70, 


A4, 


0D, 


2F, 


80, 


A4, 


0D, 


3F, 
FF, 


60, 


A4, 0D, 


3F, 


70 


A4 


0D, 


3F, 


80, 


A4, 


0D, 


60, 


A4, 0D, 


EE, 


00, 


00, 


00 










800 DATA 


EF, 


BE 


80 


80 


AA, 


AA, 


EF, 


BE 


41, 


41, 


AA, AA, 


EF, 


BE, 


22 


22, 


AA, 


AA, 


00, 


00, 


ie, 


IC, 


AA, AA 


7D, 


F7 


08 


08 


AA 


AA 


7D 


F7. 


14, 


14, 


AA, AA 


7D, 


F7, 


22 


22 


AA, 


AA, 


00, 


00, 


Cl, 


Cl, 


AA, AA 


FB, 


EE 


80 


80 


AA 


AA, 


FB 


EE 


41, 


41, 


AA, AA 


FB, 


EE 


22 


22 












810 DATA 


AA 


AA 


00 


00 


IC 


IC 


AA 


AA 


DF, 


7D, 


08, 08, 


AA, 


AA 


DF 


7D 


14 


14, 


AA 


AA 


DF, 


7D, 


22, 22 


AA 


AA 


, 00 


00 


Cl 


Cl 


AA 


AA 


88, 


88, 


44, 44 


AA, 


AA 


44 


44 


AA 


AA, 


55 


55 


22, 


22, 


11, 11 


AA 


AA 


00 


00 


AA 


AA 


55 


55 


44, 


44, 


44, 44 


AA, 


AA 


22 


22 












820 DATA 


AA 


AA 


, 55 


, 55 


, 11 


11 


11 


11 


AA, 


AA, 


00, 00 


AA 


AA 


55 


55 


22 


22 


44 


44 


AA, 


AA, 


11, 11 


, AA 


AA 


, 55 


, 55 


, 88 


88 


11 


, 11 


AA, 


AA, 


00, 00 


AA 


AA 


55 


55 


11 


11 


44 


44 


AA, 


AA, 


88, 88 


, AA 


, AA 


, 55 


, 55 


, 44 


44 


11 


, 11 


, AA, 


AA, 


00, 00 


AA 


AA 


55 


, 55 












830 DATA 


22 


22 


, 60 


, 60 


, AA 


, AA 


, 11 


, 11 


, B0, 


90, 


AA, AA 


88 


88 


, 90 


, B0 


55 


55 


44 


, 44 


, 60, 


60, 


55, 55 


, 22 


, 22 


, 06 


, 06 


, AA 


, AA 


, 11 


, 11 


, 09, 


0D, 


AA, AA 


88 


88 


, 0D 


, 09 


, 55 


55 


44 


, 44 


, 06, 


06, 


55, 55 


, 22 


, 22 


, 60 


, 60 


, AA 


, AA 


, 11 


, 11 


, D0, 


B0, 


AA, AA 


88 


88 


, 90 


, 90 













540 DATA 55,55,44,44,60,60,55,55,22, 
22, 06, 06, AA, AA, 11, 11, 09, 09, AA, AA, 88, 
88, 0B, 0D, 55, 55, 44, 44, 06, 06, 55, 55, 33, 
33, 77, 77, 88, 88, CC, CC, 88, 88, CC, CC, 33, 
33, 88, 88, EE, EE, CC, CC, 88, 88, FF, FF, 33, 
33, 77, 77, 88, 88, CC, CC 

850 DATA 88, 88, CC, CC, 33, 33, 88, 88, EE, 
EE, CC, CC, 88, 88, FF, FF, 33, 33, 77, 77, 88, 
88, CC, CC, 88, 88, CC, CC, 33, 33, 88,88, EE, 
EE, CC, CC, 88, 88, FF, FF, 33, 33, 77, 77, 88, 
88, CC, CC, 88, 88, CC, CC, 33, 33, 88, 88, EE, 
EE, CC, CC, 88, 88, FF, FF 

860 DATA 6C,6C,F0,F0,F0,F0,92,FE,F0, 
F0, 96, 96, 82, FE, F0, F0, 96, 96, 82, FE, F0, 
F0, F0, F0, 44, 7C, 0F, 0F, 0F, 0F, 28, 38, 0F, 
0F, 69, 69, 10, 10, 0F, 0F, 69, 69, 00, 00, 0F, 
0F, 0F, 0F, 6C, 6C, F0, F0, F0, F0, FE, 92, F0, 
F0, 96, 96, FE, 82, F0, F0 

870 DATA 96,96,FE,82,F0,F0,F0,F0,7C, 
44, 0F, 0F, 0F, 0F, 38, 28, 0F, 0F, 69, 69, 10, 
10, 0F, 0F, 69, 69, 00, 00, 0F, 0F, 0F, 0F, 01, 
01, 01, 01, 01, 01, 01» 01, ®1. 01, 01, 01, 01. 
01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01 . 
01, 01, 01, 01, 01, 01,01 
880 REM 

890 RESTORE740: CG=0 
900 FORI=0TO863 

910 READH$:CG=CG+VAL<"&H"+H$> 
920 NEXTI 

930 IFCGO83160! THENSCREEN0 : PRINT"Fo 
ut in regel 740-930 . " : BEEP : END 
940 RESTORE740 
950 FORI=0TO2 
960 FORJ=0TQ127 

970 READHS: VPOKE&HD600+I*640+J , VAL 

980 NEXTJ 

990 FORJ=0TO31 

1000 FORK=0TO15 

1010 VPOKE<&HD400+I*640+J*16+K> , V 

PEEK <&HD603+ 1 *640+J *4 ) 

1020 NEXTK 

1030 NEXTJ 

1040 NEXTI 

1050 FORI=0TO511 

1060 VPOKE&HDB80+ I , 0 

1070 NEXTI 

1080 FORI=0TO128 

1090 VPOKE&HDD80,+ 1 , &HD9 

1100 NEXTI 

1110 AD=&HDE00 

1120 FORI=0TO479 

1130 READHS :H= VAL <"&H"+H$> 

1140 FORJ=7TO0STEP-1 

1 150 I F (HAND (2 ~ J ) ) =2 " J THENVPOKEAD , 

1ELSEVPOKEAD, 155 

1160 AD=AD+1 

1170 ÏTEXTJ 

1180 NEXTI 

1190 VPOKE&HED00, 1 

1200 VPOKE&HED01, 155 

1210 REM 

1220 REM files saven 

1230 PRESET <0, 16) : PRINT#1, "Er zijn g 
een datafouten ondekt!" 
1240 PRESET <0, 24) : PR INT#1, "Doe de pr 
ogrammadiskette in de diskdrive en g 
eef een toets " 

1250 DEFTJSR=342 : DUMY=USR <0 ) : I $= I NPU 
$ <1) 

1260 BS AVE" MT CODES . M8" , &HDB00 , &HDE54 
1270 BSAVE"SPRITES. M8" , &HF000, &HF7FF 
, s 

1280 BS AVE" ATR I BÜT . M8" , &HD400 , &HDDFF 
,S 



1290 BSAVE" PATROON. M8" , &HDE00 , &HED01 
S 

1300 SCREEN0 

1310 PRINT" Vergeet niet dit programm 

te saven! " 
1320 END 



Uitbreiding 
SHEAT 



Deze uitbreiding voor het spreadsheet pro- 
gramma SHEAT zorgt ervoor, dat de getal- 
len ook rechts uitgelijnd kunnen worden. 
Als de uitbreiding in het programma opge- 
nomen is, kan de optie rechts uitlijnen met 
de kleine letter 'r' in- en uitgeschakeld 
worden. Het werkt zowel op het scherm als 
op de printer. Het beste resultaat krijgt 
men met getallen zonder decimalen of met 
de optie "." (twee decimalen aan). 

Het programma is zo gemaakt dat het als 
loader gebruikt kan worden Csaven met 
SAVE M SHEAT B BAS"D of in een eigen loader 
opgenomen kan worden. Het is ook mogelijk 
het spreadsheetprogramma uit te breiden 
en dan te saven. 

Daartoe moeten de regels : 210 en S20 wor- 
den verwijderd en na het runnen van de 
uitbreidinq het spreadsheet programma sa- 
ven met BSAVE ,, SHEAT.HEK ,, ,&HB8G0,&HDB91. 
Dan wel een kopie van het originele pro- 
gramma bewaren i.v.m. evt. fouten in de 
uitbreidingslisting of uitbreidingsprocedure. 

Ger Versluis. 

100 CLEAR200,&HB800 

110 BLOAD"sheat-hex" 

120 FQRI=&HB8CETQ8ïHB8D0 

130 READA$:POKEI,VAL<"&li"+A$> 

140 NEXT 

150 FORI-&HBFD8TQ&HC031 

160 READAS: POKEÏ , VAL( M &h"+A$) 

170 1SFEXT 

180 FQRI=&HDB40TO&HDB91 

190 READAS : PÜKE I , VAL <" &h" +A$ ) 

200 NEXT 

210 DEFUSR=&HB800 
220 A=USR<0) 
500 DATA C3,7D,DB 
510 

520 DATA E5,C5,21,80, A2,CD,22,CB,FE,21 
530 DATA 30, 0B, 3E, 20, 77, 13, 23, 10, F9, AF 
540 DATA 77, 18,07,77, 13,23, 10, E9,AF, 77 
550 DATA 3A,05,A2,B7,28,2C,21,80, A2,7E 
560 DATA 23, B7, 28, 24, FE, 2E, 28, 04, FE, 20 
570 DATA 20,F3,2B,36,2E,06,02,23,7E,B7 
580 DATA 28, 12, FE, 20, 20, 03, 3E, 30, 77, 10 
590 DATA F2,23,7E,B7,28,04,36,20,18,F7 
600 DATA Cl, El, C3, 40, DB, 00, 00, 00, 00, 00 
610 1 

620 DATA 3A,7D, A2,B7, 28,29, E5,D5,C5, 26 
630 DATA A2, 3E, 80, 80, 6F, 2B, E5, Dl, IA, 1B 
640 DATA FE, 20, 28, FA, FE, 20, 38, 06, 77, 2B 
650 DATA 1A,1B,18,F6,7E,FE,20,38,05,36 
660 DATA 20,2B,18,F6,C1,D1,E1,D5,11,80 
670 DATA A2,1A,CD,34,C0,13,23,10,F8,D1 
680 DATA C9,FE,72,C2,20,B8,3A,7D,A2,B7 
690 DATA 28,07, AF,32,7D, A2,C3, 10,B8,3C 
700 DATA 18 t F7 
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Machinecode 
naar DATA 
conversie 



Dit programma zet machinecode om in 
BASIC DATA regels. De machinecode mag op 
tape, disk of in het geheugen staan. 



500 ' =========================== 

501 ' 

502 * Machinecode/data conversie 

503 ' 

504 ' door: Ger Versluis 

505 * 

506 ' (c) 1988 MSX-Gids Lelystad 

507 » 

508 * LOADER 

509 ' 

510 < =========================== 

511 'initiatie 

512 »=========================== 

513 SCREEN0 : VI DTH36 : CLEAR200 , &HDD80 : KEYOFF 
:S$=STRINGS(36,"="> 

514 DEFUSR1=&H156: DEFUSR=&HC5EF : DEFFNV(QS) 
=VAL("&h"+Q$> 

515 PRINT" loading" : BLOAD" dc3" 
516 

517 'scherm 

518 ' =========================== 

519 CLS:LOCATE0,0, 1:PRINT"DC3-L0ADBR (c> V 
erscai 1988":PRINTS$ 

520 LOCATE5,8:PRIST"[00] data's per regel" 

: PRINT: PRINTTAB(5>;" (83 maximaal)" : LOCATE0 

, 20: PRIITTS$: PRIITT"Escape is standaard: [ 103 
it 

521 '=========================== 

522 ' input data aantal 

523 ' =========================== 

524 A$="00" 

525 L0CATE4 , 8 : G0SÜB548 

526 IFIS=CHRS(27)THEN530 

527 IFIS=CHRS(13)THEN531 

528 IFI$<"0"ORIS>"9"THEN525 

529 AS=RIGHTS(AS, 1)+ IS: L0CATE6, 8: PRINTAS: G 
0T0525 

530 AS="10" 

53 1 A=VAL ( AS ) : I FA=0ORA> 83THEN520 

532 • =========================== 

533 'berekening max. filegrootte 

534 • =========================== 

535 B=3*A+6:C=B/A:D=INT(22500/C>: IFD>6500T 
HEND=6500 

536 • =========================== 

537 'accoord? 

538 • =========================== 

539 D$=RIGHT$ (STR$ (D) , LEN(STRS (D) >-l) : LOCA 
TE0, 8: PR INT" Max. grootte MT-file [";D$;"] 
bytes" 

540 PR I UT : PR I STA; "data's per regel" : LOCATE 
0, 18: PRINT" accoord j /n" ; : G0SUB548 : IFI$<>"j 
"ANDISO"J"THEN519 

541 -=========================== 

542 ' poke waarden 

543 • =========================== 

544 READQS : Q=FNV (QS ) : POKEQ, A: X=B: G0SUB557: 
X=D+ 1 : FOR I =0TO2 : G0SUB557 : SEXT : LOCATE, , 0: A= 
ÜSR(0>:END 

545 > =========================== 

546 ' input subr. 

547 - =========================== 



548 TIME=0:Q=USR1(0) 

549 I$=INKEYS 

550 IFTIME=10THENLOCATE, ,0 

551 I FT I ME=20THENT I ME=0 : LOCATE , , 1 

552 IFIS=""THEN549 

553 RETURN 

554 > =========================== 

555 ' poke subr. 

556 » =========================== 

557 READQS : Q=FNV <QS ) : Y= I FT (X/256 ) : Z=X- Y*25 
6 : POKEQ , Z : POKEQ+ 1 , Y : RETURN 

558 DATA C1E6, C3C2, C496, C0D4, C154 



500 ■ =========================== 

501 ' 

502 ' Machinecode/data conversie 

503 1 

504 ' Door: Ger Versluis 

505 ' 

506 ' (c) 1988 MSX-Gids Lelystad 

507 ' 

508 ' POKE PROGRAMMA 

509 ' 
510 

511 'initiatie 

512 ' =========================== 

513 SCREEN© : ¥1 DTH40 : CLEAR200 , &HDD80 

514 I =8rHC000 : DEFFNV ( AS ) =VAL <"&h"+AS) 

515 DEFFNX ( A ) =A+256*PEEK (&HF6A4 ) +PEEK (&HF6 
A3) 

516 LOCATE, , 1 

517 DS="Datafout in regel " 

518 S$=" Bsave" +CHRS (34 ) +" DC3" +CHRS (34 ) +" , & 
HC000, &HC646, &HC5EF" 

519 '=========================== 

520 'check8spoke 

522 N=0 : RESTORB 

523 T=0:Q=0 

524 READAS: IFA$="**"THEÏT539 

525 IFA$="++"THEÏT533 

526 A=FÏTV ( AS ) : POKE I , A 

527 T=T+A:N=N+1: 1 = 1+1 

528 IFA<320RA>126THEHA=46 

529 PRINTCHRS (A) ; : GOTO 524 

530 • =========================== 

531 '++ 

532 1 =========================== 

533 READAS: A=FNW(AS) : IFT=ATHEN523 

534 D=FNX(Q) : PRINT: PR INTDS; D-9; "-" ; D 

535 END 

536 ' =========================== 

537 »** 

538 ' =========================== 

539 I FN< > 1607OR I O &HC647THENPR I NT : PR I NTLEF 
TS(DS,8):END 

540 CLS.-LOCATE0, 1 : PRINTSS: LOCATE0, 0, 0: END 

542 'machine opcade's 

543 ' =========================== 

544 DATA 18,18,44,43,33,20,62,79 

545 DATA 20, 47, 2E, 56, 65, 72, 73, 6C 

546 DATA 75, 69, 73, 20, 30, 33, 2D, 38 

547 DATA 38, 2E, ED, 73, 3E, DE, 31 , 3E 

548 DATA DE, CD, 66, 40, 11, E9, 44, 21 

549 DATA CF, 00, CD, B2, 44, CD, 56, 01 

550 DATA CD,9C,00,28,FB,7E,FE,43 

551 DATA 28,0D,FE,44,28,0E,FE, 4D 

552 DATA ++.18B9 
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553 DATA 20, EB, CD, 98, 40, 18, 08, CD 

554 DATA FD, 40, 18, 03, CD, 79, 41, CD 

555 DATA CC, 41, AF, ED, 7B, 3E, DE, F5 

556 DATA E5, AF, 32, AB, FC, CD, 56, 01 

557 DATA CD, CF, 00, El, Fl, C9, 3E, 28 

558 DATA 32, AE, F3, 32, AB, FC, CD, 6C 

559 DATA 00, 11, BC, 44, 21, 01, 00, CD 

560 DATA B2, 44, 13, 21, 51, 00, CD, B2 

561 DATA ++, 1F8B 

562 DATA 44, 21, 78, 00, 01, 28, 00, 3E 

563 DATA 3D, CD, 56, 00, 21, 14, 01, CD 

564 DATA C6, 00 , CD, CC, 00 , C3 , C0 , 00 

565 DATA 11, 04, 45, 21, 47, 01, CD, B2 

566 DATA 44, 13, 21, 97, 01, DD, 21, FA 

567 DATA BF, 06, 02, CD, 20, 42, 13, C5 

568 DATA 01, 28, 00, 09, Cl, DD, 23, DD 

569 DATA 23, 10, F0, 2A, FC, BF, ED, 5B 

570 DATA ++,16C1 

571 DATA FA,BF,E7,30,09,EB,22,FC 

572 DATA BF, ED, 53, FA, BF, 00, B5, AF 

573 DATA ED, 52, D5, 11, 39, 18, E7, Dl 

574 DATA E5, Cl, El, 30, IA, D5, 11, 00 

575 DATA C0, E7, Dl, 38, 08, EB, 11, 00 

576 DATA C0, 03, ED, B0, C9, 11, 00, C0 

577 DATA EB, 09, EB, 03, ED, B8, C9, 11 

578 DATA 4E, 45, C3, 62, 42, 11, 5C, 45 

579 DATA ++.20CE 

580 DATA 21, 47, 01, E5, CD, B2, 44, CD 

581 DATA 56,01,CD,9C,00,28,FB,7E 

582 DATA FE, 53, 28, 0B, FE, 4D, 20, EF 

583 DATA 3E, FF, CD, F3, 00, 18, E8, El 

584 DATA 01, 10, 00, AF, CD, 56, 00, 11 

585 DATA EA, BF, 06, 10, CD, 24, 44, CD 

586 DATA 37, 44, 12, 13, 10, F9, CD, E7 

587 DATA 00, CD, 70, 42, CD, 24, 44, 06 

588 DATA ++, 1BC7 

589 DATA 06, CD, 37, 44, 12, 13, 10, F9 

590 DATA 2A, FC, BF, ED, 4B, FA, BF, AF 

591 DATA ED, 42, 1», 11,39, 18, E7, Dl 

592 DATA 38, 0C, CD, D2, 42, CD, E7, 00 

593 DATA 11, 4E, 45, C3, 62, 42, E5, Cl 

594 DATA 03, CD, 37, 44, 12, 13, 0B, 78 

595 DATA BI, 20, F6, CD, D2, 42, C3, E7 

596 DATA 00, 3A, 7B, FE, FE, C9, 20, 06 

597 DATA ++, 1E8E 

598 DATA 11, 92, 45, C3, 62, 42, CD, F5 

599 DATA 42, CD, 56, 43, CD, A5, 43, 11 

600 DATA F9,BF,CD,70,44,E5,D5,C5 

601 DATA 0E.0F, 11,20, BF, CD, 7D.F3 

602 DATA Cl, Dl, El, B7, 28, 06, 11, 3B 

603 DATA 45, C3, 62, 42, CD, 7C, 44, CD 

604 DATA B3,42,D5,CD,D2,42,CD,8B 

605 DATA 44,D1,05,78,B7,C8,21,80 

606 DATA ++,20E0 

607 DATA 00, 19, EB, CD, 70, 44, CD, 7C 

608 DATA 44,10,F3,C9,2A,FC,BF,ED 

609 DATA 5B,FA,BF,AF,ED,52,23,01 

610 DATA 64,00, 11, 00,80, DD, 21, 00 

611 DATA C0,CD,BD,43,C5,06,0A,CD 

612 DATA E0,43,3E,2C, 12, 13.2B.7D 

613 DATA B4,28,08,DD,23, 10.F0, 1B 

614 DATA C1,18,E6,1B,C1,AF,12,D5 

615 DATA ++, 1C82 

616 DATA 13, 2A, 14, 40, 73, 23, 72, 12 

617 DATA 13, 12, 13, 3E, 08, 12, ED, 53 

618 DATA C2,F6,ED,53,C4,F6,BD,53 

619 DATA C6,F6, 13,3E,41, 12.E1.C9 

620 DATA E5,C5,CD,B2,44,D5,AF,DD 

621 DATA 77, 00, DD, 77, 01, 23, CD, F4 

622 DATA 43, E5, CD, 56, 01, CD, 9C, 00 

623 DATA 28, FB, 7E, FE, 0D, 28, IE, FE 

624 DATA ++.1E9A 

625 DATA 30, 38, EF, FE, 47, 30, EB, FE 

626 DATA 3A, 38, 06, FE, 41 , 38, E3, D6 

627 DATA 07, DD, E5, El, 00, ED, 6F, 23 



628 


DATA 


ED, 


6F.E1, 


18, 


Dl, El, Dl, 


Cl 


629 


DATA El, 


C9.21, 


AF, 


02.CD.B2, 


44 


630 


DATA 


CD, 


C0.00, 


3E, 


FF,C3,53, 


40 


631 


DATA 


AF, 


12, D5, 


11, 


EA.BF.06, 


0A 


632 


DATA 


IA, 


FE , D0 , 


20, 


08, 13, 10, 


F8 


633 


DATA 


++. 


2109 








634 


DATA 


CD, 


C9.42, 


Dl, 


C9,FE,D3, 


28 


635 


DATA 


09, 


FE, EA, 


28, 


0A.21.27, 


41 


636 


DATA 


E3, 


C9, 11, 


78, 


45, 18,03, 


11 


637 


DATA 


7E, 


45,21, 


47, 


01,CD,B2, 


44 


638 


DATA 


3E, 


2D,CD, 


4D, 


00,23,11, 


84 


639 


DATA 


45, 


CD,B2, 


44, 


23, 11, F4, 


BF 


640 


DATA 


C3, 


65,42, 


3A, 


F9, BF, FE, 


FE 


641 


DATA 


C8, 


FE, FF, 


20, 


06, 11,78, 


45 


642 


DATA 


++, 


1CE9 








643 


DATA 


C3, 


62,42, 


11, 


89,45,C3, 


62 


644 


DATA 


42, 


21,47, 


01, 


11,F4,BF, 


C3 


645 


DATA 


B2, 


44, DD, 


21, 


FA, BF, 11, 


IA 


646 


DATA 


45, 


21,97, 


01, 


06,03,C5, 


E5 


647 


DATA 


CD, 


B2.44, 


23, 


CD.F4.43, 


DD 


648 


DATA 


23, 


DD,23, 


13, 


El, 01, 28, 


00 


649 


DATA 09, 


Cl, 10, 


BA, 


C9, 11, A9, 


45 


650 


DATA 


21, 


47,01, 


CD, 


B2,44,23, 


11 


651 


DATA 


++, 


1A19 








652 


DATA 


00, 


BF.01, 


00, 


0C,3E,20, 


D5 


653 


DATA 


C5, 


12,13, 


1®, 


FC, AF, 12, 


Cl 


654 


DATA 


Dl, 


05, CD, 


41, 


44.E5.CD, 


56 


655 


DATA 


01, 


CD.9C, 


00, 


28,FB,7E, 


El 


656 


DATA 


FE, 


0D.28, 


2E, 


FE, IC, 20, 


03 


657 


DATA 


IA, 


18, 1B, 


FE, 


1D,20,0E, 


79 


658 


DATA 


B7, 


28, E2, 


IA, 


CD, 4D, 00, 


1B 


659 


DATA 


2B, 


04, 0D, 


18, 


D5,FE,20, 


38 


660 


DATA 


++, 


17CF 








661 


DATA 


D4, 


FE.7F, 


30, 


D0, 12, CD, 


4D 


662 


DATA 


00, 


78, B7, 


28, 


C5, 13,23, 


0C 


663 


DATA 


18, 


BF, IA, 


C3, 


4D.00, 11, 


00 


664 


DATA 


BF, 


D5.D5, 


El 


1A,B7,28, 


09 


665 


DATA 


FE, 


20,28, 


02, 


77,23, 13, 


18 


666 


DATA 


F3, 


Dl, AF, 


77 


21, 10, BF, 


06 


667 


DATA 


08, 


1A.B7, 


20, 


08,3E,20, 
1C,FE,2E, 


77 


668 


DATA 


23 


10, FC, 


18 


28. 


669 


DATA 


++» 


17B3 








670 


DATA 


IC, 


77, 13, 


23 


10, EB, 06, 


03 


671 


DATA 


13, 


1A,B7, 


28 


05,77,23, 


10 


672 


DATA 


F7 


C9,3E, 


20 


77,23, 10, 


FC 


673 


DATA 


C9, 


06,03, 


18 


F5,3E,20, 


77 


674 


DATA 


23 


10, FC, 


18 


E3,21,20 


BF 


675 


DATA 


11, 


21, BF, 


01 


36,00,36, 


00 


676 


DATA 


D5 


ED, B0 


Dl 


21, 10, BF 


01 


677 


DATA 0B, 


00, ED, 


B0 


C9, AF, 12, 


13 


678 


DATA 


++ 


1601 








679 


DATA 


E5 


21,24 


00 


19,ED,53 


14 


680 


DATA 


40 


,7D,12 


13 


,7C, 12, 13 


,E1 


681 


DATA 


79 


12, 13 


78 


12, 13, 3E 


84 


682 


DATA 


12 


, 13, 3E 


20 


, 12, 13,03 


,C9 


683 


DATA 


DD 


7E.00 


F5 


07,07,07 


07 


684 


DATA 


CD 


, 12,44 


, 12 


, 13,F1,CD 


, 12 


685 


DATA 


44 


12, 13 


C9 


,E5,DD,7E 


01 


686 


DATA 


CD 


,03,44 


DD 


,7E,00,CD 


,03 


687 


DATA 


++ 


14A2 








688 


DATA 


44 


,E1,C9 


,F5 


,07,07,07 


,07 


689 


DATA 


CD 


IE, 44 


23 


,F1,CD, IE 


44 


690 


DATA 


23 


,C9,E6 


,0F 


,FE,0A,38 


,03 


691 


DATA 


C6 


,37,C9 


,C6 


,30,C9,CD 


, 12 


692 


DATA 


44 


,C3,4D 


,00 


,D5,C5,CD 


,E1 


693 


DATA 


00 


,38,03 


,C1 


,D1,C9,CD 
,C3,62,42 


,E7 


694 


DATA 


00 


, 11, 6C 


,45 


,D5 


695 


DATA 


C5 


,CD,E4 


,00 


,38,F0,C1 


,D1 


696 


DATA 


++ 


, 1F0D 








697 


DATA 


C9 


,E5,D5 


,C5 


,CD,4A,00 


,26 


698 


DATA 


00 


,6F,29 


,29 


,29,ED,4B 


,B7 


699 


DATA 


F3 


, 11, F8 


,07 


,09, EB, 09 


, EB 


700 


DATA 


06 


,08, CD 


,4A 


,00,EB,EE 


, FF 


701 


DATA 


CD 


, 4D.00 


, EB 


, 13,23, 10 


,F2 


702 


DATA 


Cl 


,D1,E1 


,3E 


,FF,C3,4D 


,00 



703 DATA E5,D5,C5,0E, IA, CD, 7D, F3 

704 DATA C1,D1,E1,C9,E5,D5,C5, 11 

705 DATA ++,21F3 

706 DATA 20,BF,0E, 14, CD, 7D, F3, Cl 

707 DATA Dl, El, C9, 2A, FC, BF, ED, 5B 

708 DATA FA, BF, AF, ED, 52, 11,39, 18 

709 DATA E7,38,06, 11 , 4E, 45, C3, 62 

710 DATA 42,06,00,11,07,00,19,11 

711 DATA 80,00, AF, 04, ED, 52, C8, D8 

712 DATA 18, F9, IA, B7, C8, CD, 4D, 00 

713 DATA 13,23,18,F6,4D,61,63,68 

714 DATA ++,1BBB 

715 DATA 69,6E,65,63,6F,64,65,2F 

716 DATA 64,61,74,61,20,63,6F,6E 

717 DATA 76,65,72,73,69,65,20,00 

718 DATA 28,63,29,20,31,39,38,38 

719 DATA 20,56,65,72,73,63,6F,6D 

720 DATA 00, 5B, 43, 5D, 61, 73, 73, 65 

721 DATA 74, 74, 65, 20, 5B, 44, 5D, 69 

722 DATA 73, 6B, 20, 5B, 4D, 5D, 65, 6D 

723 DATA ++, 15A9 

724 DATA 6F, 72, 79, 00, 41, 64, 72, 65 

725 DATA 73, 73, 65, 6E, 20, 48, 45, 58 

726 DATA 41, 44, 45, 43, 49, 4D, 41, 41 

727 DATA 4C, 00, 42, 65, 67, 69, 6E, 61 

728 DATA 64,72,65,73,00,20,45,69 

729 DATA 6E, 64, 61, 64, 72, 65, 73, 00 

730 DATA 53,74,61,72,74,61,64,72 

731 DATA 65, 73, 00, 46, 69, 6C, 65, 20 

732 DATA ++,1565 

733 DATA 6E, 69, 65, 74, 20, 67, 65, 76 

734 DATA 6F, 6E, 64, 65, 6E, 00, 46, 69 

735 DATA 6C, 65, 20, 74, 65, 20, 67, 72 

736 DATA 6F, 6F, 74, 00, 5B, 4D, 5D, 6F 

737 DATA 74, 6F, 72, 20, 5B, 53, 5D, 74 

738 DATA 61, 72, 74, 00, 4F, 6E, 64, 65 

739 DATA 72, 62, 72, 6F, 6B, 65, 6E, 00 

740 DATA 42,41,53,49,43,00,41,53 

741 DATA ++, 1608 

742 DATA 43, 49, 49, 00, 66, 69, 6C, 65 

743 DATA 00, 4F, 6E, 62, 65, 6B, 65, 6E 

744 DATA 64, 00, 47, 65, 65, 6E, 20, 64 

745 DATA 72, 69, 76, 65, 20, 61, 61, 6E 

746 DATA 67, 65, 73, 6C, 6F, 74, 65, 6E 

747 DATA 00, 46, 69, 6C, 65, 6E, 61, 61 

748 DATA 6D, 3A, 00, 61, 3D, 75, 73, 72 

749 DATA 28, 30, 29, 00, 6C. 69, 73, 74 

750 DATA ++,1591 

751 DATA 00, CD, 00, 40, 32, 40, DE, 22 

752 DATA 41, DE, B7, 20, 04, 11, BC, 45 

753 DATA 18, 03, 11, B3, 45, 21, 20, 03 

754 DATA C3, B2, 44, 00, F7, 00, Cl , 45 

755 DATA 3A, 40, DE, 2A, 41, DE, B7, C0 

756 DATA ED, 7B, BI , F6, 3B, 3B, C9, CD 

757 DATA 38, 01, 07, 07, E6, 03, 06, 00 

758 DATA 4F, 21 , Cl, FC, 09, CB, 7E, 28 

759 DATA ++, 18B9 

760 DATA 0E,21,C5,FC,09,7E,07,07 

761 DATA 07,07,E6,0C,B1,CB,FF,32 

762 DATA DD, C5, 21, DC, C5, 11 , 43, DE 

763 DATA 01, 13, 00, ED, B0, 21, 00, C0 

764 DATA 11 , 00, 40, 01, DC, 05, CD, 37 

765 DATA C6, 0B, 13, 23, 78, BI, 20, F6 

766 DATA 21, 43, DE, 22, 9A, F3, E9, E5 

767 DATA D5, C5, 7E, EB, 5F, 3A, DD, C5 

768 DATA CD, 14, 00, Cl , Dl , El, C9 

769 DATA ++,20F1,*X 




STARJET II (MSX2) 



Beschrijving 

STARJET 2 is een MSH-2 versie van STAR- 
JET uit MSH GIDS Nr.6. Het is een zoge- 
naamd behendigheidsspel, d.w.z. je moet een 
bepaald doel zien te bereiken zonder overal 
op te botsen. Het spel heeft 5 speelvelden, 
een toelichting, een 'HALL OF FAME' voor 10 
highscores, een demo en een mogelijkheid 
om de 'HALL OF FAME' op cassette dan wel 
diskette te zetten Cen natuurlijk een in- 
trobeeld). Het spel werkt voor zowel joy- 
stick Cin poort 1 of 23 als toetsenbord. 
Waar het op werkt zoekt het programma 
zelf uit d.m.v. een druk op de vuurknop c.q 
spatiebalk. Het is alleen geschikt voor MSH 
2 met 128K VRAM, daar het gebruik maakt 
van alle 4 pagina's in SCREEN 5. De weg- 
SAVE-mogelijkheid werkt voor zowel casset- 
te als diskette Cde device niet vermelden 
bij OPEN, dan worden de gegevens op de 
standaard device gezet). 

De besturing is normaal: links met de joy- 
stick/cursors is naar links met het vlieg- 
tuig enzovoort. De 'HALL OF FAME' kun je 
wegSAVEn door tijdens het introbeeld, toe- 
lichting, het laten zien van de 'HALL OF 
FAME' of de demo op Fl te drukken. 

Het programma is voor het grootste deel 
in BASIC geschreven. Alleen de joystickuit- 
lezing en het plaatsen van de 2 sprites Cl 
voor het vliegtuig naar rechts en dus ook 
1 voor het vliegtuig naar links) zijn in ma- 
chinetaal. 

Hierbij maak ik geen gebruik van de BIOS 
CALL WRTVRM C&H4D), want die werkt niet 
voor de MSH 2 schermen. Hiervoor moet je 
gebruik maken van het entrypoint &H177 
(lees VRAM) en equivalent aan RDVRAM is 
&H174. 

De speelvelden bestaan uit twee delen: 

1) de opbouw van het veld. 

2) de beweging in het veld tijdens het 
spelen 

Deze beweging Cen de mindering van de 
fuel) worden geregeld via een ON INTERVAL 
GOSUB routine. De controle of er een be- 
paald voorwerp opgepikt is, geschiedt met 
een ON SPRITE GOSUB routine. Als het 
vliegtuig op niet zwarte delen komt, is men 
dood Cof een leven minder of hoe je het 
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maar ziet). Het introbeeld wordt maar 1 
keer opgebouwd, evenals de toelichting. Dit 
voorkomt hinderlijke wachttijden als het 
spel opnieuw wordt opgestart. Het intro- 
beeld staat op PAGE 1, de toelichting op 
PAGE H. De speelvelden worden opgebouwd 
op PAGE 3 en tijdelijk commentaar staat 
altijd op PAGE 0. Ook het spelen van het 
spel wordt gedaan op PAGE 0, daar er Cnaar 
mijn ervaring tot nog toe) niet met sprites 
gemanipuleerd kan worden op de andere 
pagina's. Heeft dit een andere reden of is 
er een simpele oplossing voor, dan zou ik 
dat graag willen vernemen. 



ZleLF velden bijmaken 

Zoals al eerder gezegd moeten de speelvel- 
den uit twee delen bestaan. Een deel voor 
de opbouw en een voor de beweging. Voor 
terugkeer naar de MAIN LOOP (met 
RETURN) moet eerst de ON INTERVAL GOSUB 
ingesteld worden voor de beweging (zie 
desnoods de ingebouwde speelvelden). 

Tevens moet in de demo Cregel 470 de FOR 
R=l TO H) de H verhoogd worden met ieder 
speelveld dat erbij komt en moet er bij de 
ON R GOSUB in de demo en in de MAIN LOOP 
(regels 47G en 54G) een regel bijkomen. In 
de demo is dat de tweede regel van het 
speelveld (die na de tekst) en in de MAIN 
LOOP de eerste regel van het speelveld. Na 
regel 1520 moeten de plaatsen voor het 
geld, de fuel, het vliegtuig en de uitgang 
voor iedere ronde in DATA's gezet worden 
en wel in de volgorde: de H en de Y-coordi- 
naat van het geld (wel gescheiden door 
komma's), de H en de Y-coordinaat van de 
fueltank, de K en de Y-coordinaten van het 
vliegtuig en de K en de Y-coordinaat van 
de uitgang (EHIT). Dan moet ook de 
FOR-NEKT loop voor het inlezen van deze 
coördinaten met 1 opgehoogd worden voor 
ieder speelveld (regel 1360). Ook moet je de 
IF R=G THEN.... aanpassen (regel 1750). Ik 
hoop niet dat ik je ontmoedigd heb. Het 
lijkt veel werk, maar dat valt in de prak- 
tijk wel mee. 

VEEL PLEZIER MET HET SPELEN EN HET 
EVENTUEEL BIJMAKEN VAN SPEELVELDEN 

Albert Siersema 
Groningen. 

10 . , , 

20 * | STAR JET MSX 2 | 

30 * | Een behendigheidsspel voor j 

40 ' | een MSX 2 met 128K VRAM» | 

50 * j Geschreven door: | 

60 1 j Albert Siersema j 

70 ' | voor de MSX gids <c) 1988 | 

80 t ! j 

90 ■ 

100 ■ DE TOETSEN: 

110 'I GRAPH+P r GRAPH+R - GRAPH+- 

120 • | GRAPH+SHIFT+X ^ GRAPH+V 

130 ,J GRAPH+N - 1 - GRAPH+B p GRAPH+T 

140 M GRAPH+H f GRAPH+G (- GRAPH+F 

150 MAXF I LES=2 : DEF I NTA-Z : IFPEEK(&HD000) <>& 

H21THENGOSUB2080 

160 GGSUB1200:CÜLGR7 ) 1, 1 : CLS : SETP AGE0 , 0 : PR 
ESET (80, 96); PR INT#1, "Momentje, . .":G0SUB118 
0 : P I = ATN ( 1 ) *4 : DEFÜSR 1 =&H90 
170 ■ INTRO-BEELD ■ 

180 IFPEEK(&HFFCA)=128THEN300ELSEFORI=1TO3 
ï SETPAGE0, I : CLS: NEXT: SETPAGE0 , 1; A=RND(-TIM 
E):FORI=1TO80:CIRCLE(RND(1)*255,RND(1)*211 
), 1,RND(1)*15+1:NEXT:P0KE&HFFCA, 128: '| ST 
ERREN 



190 ' | STAR 

200 C0L0R4: DRAV ,, S4A0C4 ,, : CIRCLE (23, 25) , 20, 4 
f PI/2 f PI*1. 6: CIRCLE (23,25) f 13,4, PI/2. 1, PI* 
1.6: CIRCLE (20, 45), 20, 4, PI*1, 15, PI/1 . 95: CIR 
CLE(20, 45) , 13, 4, PI*1. 2, PI/2: DRAVBM26, 5D7B 
M25 , 45Ü7BM20 , 25D7BM1 , 49R7" : PAINT (10, 15) ,6, 
4: PA INT (10 55) 6 4 

210 LINE(50,5)-(57,65),4,B:LINE(35,5)-(47, 
12>,4,B:LINE(60,5)-(72, 12) , 4, B: PAINT (52, 7) 
,6, 4: PAINT (37, 7), 6, 4: PAINT (65, 7), 6, 4 :DRAV" 
BM75, 65C4R7" r LI NE (75, 65)- (85, 5) , 4: DRAW"R7 n 
:LINE(92,5)-(82,65),4:LINE(95,5)-(105,65), 
4: DRAV ,, R7 H : LINEQ12, 65)- (103, 5) , 4: DRAVL7" 
220 LI NE (89, 42)- (91, 35) ,4: DRA V" R6" : L I NE (97 
, 35)- (99, 42) , 4: DRAWL10" : PA INT (76, 64) ,6,4: 
PAINT (96, 36), 6, 4: PAINT (96, 6), 6, 4: LINE (120, 
5)-(127,65),4,B:LINE(130,38)-(147,65),4:DR 
AV" R7" : L I NE ( 154 , 65 ) - ( 137 , 38 ) , 4 : DRAW M L6 M 
230 CIRCLE(130,20),22,4,PI*1.6,PI/1.95, .7: 
CIRCLE (130, 20), 15, 4, PUI, 6, PI/2, .7: DRAV^BM 
130, 35U5BM130, 10U5» : PAINTQ52, 63) ,6, 4: PAIN 
T (132, 6), 6, 4: PAINT (122, 7), 6, 4 
240 1 | JET 

250 LINE(100,80)-(130,87),4,B:LINE(123,89) 
-(130, 129),4,B:CIRCLE(115, 130) , 21, 4, PI*1, 0 
3,0, 1,4: CIRCLE (115, 130) , 11 , 4, PI*1 . 02, 0, 1 . 4 
: DRAWBM100, 128R7" : PA INT (102, 82) , 6, 4: PA INT 
(125,91),6,4:PAINT(125, 131 ) , 6, 4: DRAV H C6BM1 
24 129R5" 

260 LINE(137,80)-(144, 149) , 4, B: LINE (146, 80 
)-(166,87),4,B:LINE(146, 110)- (157, 117), 4, B 
:LINE(146, 142)- (166, 149) , 4, B: PAIIT (139, 82) 
,6,4:PAINT(148,82),6,4:PAINT(148, 112), 6, 4: 
PAINT(148, 144), 6, 4 

270 LINEQ85, 80)- (192, 150) , 4, B; LINE(170, 80 
)-(182,87),4,B:LINE(195,80)-(207,87),4,B:P 
AINT(187,82),6,4:PAINT(172,85),6,4:PAINT(2 
00,85),6,4:LINE(210, 147)- (215, 100) , 4: LINE( 
230, 147)- (235, 100) , 4: DRAV"BM207, 96R40BM203 
, 150R40" 

280 RESTORE290: F0RI=1T09: READNS ( I ) , SF ( I ) : N 

EXT: 'I VUL EENMALIG SCORETABEL 

290 DATA "STAR JET2 " , 200, , 200, E 

en behendigheids-, 200, spel voor de MSX 2., 

200, , 200, "Geschreven door: " , 200, ALBERT SIE 

RSEMA,200, ,200, (C) 1988 MSX GIDS, 200 

300 GOSÜB1 180: SETP AGE1, 1: GOSUB1140: F0RI=1T 

07 : C0L0R= (4,0,0,1): FORW=1TO100 : NEXTV, I : COL 

0R=(4, 1,0,7):FOR¥=1TO100:NEXT:COLOR=(4, 1, 1 

, 7) : FORV=1TO1000: NEXT: GOSUB1140: F0RI=1T05: 
COLOR= (6,1,0,0): FOR¥=1TO100 : NEXTW, I : CÜL0R= 

(6,5,1,0) 

310 FORV=1TO100: NEXT: C0L0R= (6,5,1,1): F0RV= 
1TO1000; NEXT: FORI=15T01STEP-l: S0UND8, I : FOR 
V=1TO150: NEXTW, I : C0L0R= (15, 0, 0, 0) : LINE (28, 
200)-(224,211),15,BF:TX$="DRÜK OP SPAT I EBA 
LK/VUURKN0P" : KL=1: DB=1: XT=32: YT=202: G0SUB1 
150 

320 ONSTRIGGOSUB 1350, 1360, 1370: FORI=0TG2: S 
TR I G ( I ) ON: NEXT : ONKEYGOSUB2000 : KEY ( 1 ) ON 
330 F0RA= 1TO10 : GOSÜB1 170 : NEXT : COPY (0 , 0 ) - (2 
55,211), ITO (0,0), 3: SETPAGE3 , 3 : GOSÜB1330 
340 ■ TOELICHTING ■ 

350 IFPEEK (&HFFCB) =128THEN370ELSESETPAGE0 
,2:CLS:XT=70:YT=5:TX$="S T A R JET 2": 
DB=1: KL=15: GOSUB1150: TX$=" Veel geluk! " : XT= 
80: YT=180; DB=1 : KL=13: GOSÜB1150 
360 RESTORE390: YT=25: F0RI=1T011: READTXS: X 
T=0 : KL=2 : DB=0 : G0SÜB1 150 : YT=YT+ 12 : NEXT : P0KE 
&HFFCB, 128 

370 SETPAGE3, 2: FORY2=188TO180STEP-1: F0RY= 
Y2TO0STEP-8 : COPY (0 , Y)- (255, Y) , 2TO(0, Y) , 3: N 
EXT: NEXT 

380 GOSÜB1180: F0RQ=1T012: GOSUB1170: NEXT: C 
0L0R= (15, 7, 7, 7) : SETPAGE3, 3: GOSÜB1330 
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390 DATA"U bent gevangen genomen door ZOD 
IAK,",Biaar U wist te ontsnappen in een, STA 
R JET. , , Om naar Uw thuisplaneet terug te k 
e-,ren heeft U een beter voertuig nodig. , H 
et geld voor dit voertuig ligt 
400 DATAverspreid over de planeet. , Verzam 
el het geld en let op Uw, brandstof ! Deze i 
s aan te vullen, door de tankjes (F) op te 
pikken. 

410 HALL OF FAHB ■ 

420 SCREEN0 : KEYOFF : VI DTH35 : C0L0R15 , 1 : CLS : 
LOCATE, 24: GQSUB430: FORW=1TG15000: NEXTV: FOR 
I = 1TO20: PRINT: F0RW=1T025: NEXTW, I : GOTO480 

430 PRINT" | 

— l " : PRINT" | " ; SPC (32 ) ; " | " •' PRINT" |" ; SPC (8 ) ; 
"- HALL OF FAME — " ; SPC (8) ; " |" : PRINT" |" ; SPC 
(32 ) ; " | " 

440 ' PRINT" | 1 1 

— j " : PRINT" | NR. : |SCORE: | NAAM: " ; SPC(15) ; " | " 

450 PRINT" | 1 1 

-I" : FOR I=1T09: PRINT" |";USING" ####"; I; :PRIN 
T" | " ; USING" ######" ; SF ( I ) ; : PRINT" |";LEFTS(N 
$(I)+SPACE$(20),20);" |":NEXT 

460 PRINT" 1 1 1 

— ' " : F0RI=1T03: PRINT: F0RW=1T025: NEXTW, I : RE 
TURN 

470 1 ■ DEMO ■ 

480 SCREEN5 , 2 : C0L0R15 , 2 , 2 : CLS : XT= 1 10 : YT= 1 
00: EL=1: DB=1: TX$="DEMO" : GOSUB1150: LV=3: FUE 
L=130: SETPAGE0, 0: GOSUB1390: FQRR=1T05: COLOR 
,2,2: CLS: SETPAGE0, 3: COL0R15, 4, 4: CLS: COLOR: 
DM= 1 : ONRGOSUB600 , 690 , 790 , 880 , 1020 : GOSUB127 
0: SETPAGE©, 0: GOSUB1630: INTERVALON 
490 FORV=1TO15000:NEXT: INTERVALOFF: G0SUB1 
190: CLS: FORI2=0TO11: PUTSPRITEI2, (-20, -20) : 
NEXT : NEXT 
500 GOTO160 

510 INITIALISATIE ■ 

520 C0L0R15 , 4 , 4 : CLS : COLOR : LV=3 : FUEL= 1 30 : SC 
=0: R=l : G=0: PQKE&HD094, Q: TZ=0: EZ=1 
530 'B| MAIN LOOP ■ 

540 SETPAGE0 , 0 : COLOR 15 , 2, 2: CLS: GOSUB1390: D 
EFÜSR=&HD000: '| SPRITES 

550 ONRGOSUB590, 680, 780, 870, 1010: GOSUB1300 
: SETPAGE0, 0: GOSUB1630: SPRITEON: T1=0: T2=0: I 
NTERVALON 

560 PRINTUSR(0):GOSÜB1220: IFPOINT(X, Y+4)<> 

10RPOINT (X+16, Y+10) 0 10RPOINT (X, Y+5) 0 10R 

POINT(X+1,Y+13)O1THENGOSUB1730 

570 GOTO560 

580 ' ■ LEVEL 1 ■ 

590 XT=2: YT=90:KL=l:TX$="Level 1. ..Vind Uw 
weg door de eerste" : GOSUB1 150: XT=2: YT=100 
: TX$=" ondergrondse gang . " : G0SUB1 150 : SETPAG 
E0 , 3 : COLOR ,4,4: CLS : GOSUB1630 
600 C0L0R15:LINE(1, 190)- (60, 210) , 1, BF: CIRC 
LE(64, 171), 40, 1,PI*1.55,PI/1.85, 1. 1:CIRCLE 
(62, 173), 17, l,PI*1.55,PI/2, 1.4:LINE(10, 131 
)-(68, 158), l,BF:LINE(10,70)-(30, 132), 1,BF: 
LINE(30,70)-(150,90), 1:LINE(30,95)-(130, 11 
5), 1 

610 LINE(150,90)-(140, 150) , 1: LINEQ23, 110) 
-(115, 160), 1:LINE(140, 150)- (160, 165), 1:LIN 
E(115, 160)-(160, 190) , 1:LINE(160, 163)-(240, 
209) , 1, BF: D$="C4F5U3F6E3R2F8R2E6D3E7F9E2F1 
2E5F8Ü2R3E4F7E4D3F8" : DRAWBM160, 160A0XDS;" 
: PAINTQ70, 165) , 4: PAINT(220, 165) , 4 
620 LINE(230, 170)- (255, 80) , 1 , BF: LINE (240, 2 
10)-(255, 170), 1: LINE (230, 170)-(225, 190), 1: 
PAINT(80, 171), 1:PAINT(35,75),1:PAINT(243,2 
00) , 1 : DRAW" BM255 , 220A2XDS; " : PA INT (210, 209) 
,4:PAINT (200, 209), 4 



630 LINE(235,80)-(140,75), 1: LINE (255, 80)- ( 
255, 60) , 1: LINE (255, 60)- (140, 52) , 1: CIRCLE (1 
90, 99), 25, 1, PI*. 7, PI*. 3, 1. 4: LINE (110, 16)- ( 
140,75), 1,BF:PAINT(190, 96), 1:PAINT (220, 70) 
,1 

640 GOSUB1290: ONINTERVAL=100GOSUB650: RETUR 
N 

650 INTERVALOFF: LINE (190, 170)- (191, 200) , 10 
, BF, XOR: T1=T1+1: IFTl=2THENFUEL=FUEL-6: GOSÜ 
B1240:T1=0 

660 INTERVALON: RETURN 
670 1 ■ LEVEL 2 ■ 

680 XT=8: YT=90:KL=l:TX$="Level 2... De 2e o 
ndergrondse gang. " : GOSUB1150: XT=8: YT=100: T 
X$="Pas op voor de straling! ": G0SUB1 150: SE 
TPAGE0 , 3 : COLOR, 4,4: CLS: GOSUB1630 
690 COLOR15:LINE(110,209)-(140, 170), 1,BF:L 
INE(140, 185)-(250, 157) , 1: LINE(110, 170)-(21 
0, 147), 1: LINE (210, 147)- (180, 120) , 1: LINE (25 
0, 157)-(195,90), 1:LINE(180, 120)-(100, 150), 
1:LINE(195,90)-(100, 125), 1 
700 CIRCLE(70, 140), 36, 1, , , 1. 15:PAINT(70, 14 
0), 1: LINE (40, 130) - (1 , 150) , 1, BF: LINEd, 150) 
-(25, 180), 1,BF: LINE (1,209)- (70, 180), 1,BF:L 
INE(120, 120)-(150,60), l,BF:LINE(120,80)-(6 
0,95), 1: LINE (120, 60)- (60,75), 1: LINE (10, 75) 
-(60,95), 1,BF 

710 LINE (150, 60)- (200, 50), 1 : DRAWBM120, 60A 
0ül5":LINE(120,45)-(200,30), 1: LINE<200,30) 
-(254,50), 1,BF:PAINT(170, 170), 1:PAINT(70,8 
5) , 1: PAINT(160,50) , 1: LINE (65, 135)- <75, 145) 
, 8, BF: CIRCLE (66, 136) ,3,3: CIRCLE (74, 144) , 3, 
3:CIRCLE(66, 144) , 3, 3: CIRCLE(74, 136), 3, 3 
720 PA I NT (65 , 135 ) , 2 , 3 : PA I NT (75 , 145 ) , 2 , 3 : PA 
INT (65, 145),2,3:PAINT(75, 135) , 2, 3: DRAWBM7 
0, 140C14NE1NH1NG1NF1" :PSET(67, 135), 15:PSET 
(75, 143) , 15: PSET(67, 143) , 15: PSET(75, 135) , 1 
5 

730 GOSUB1290: ONINTERVAL=115GOSUB740: ST=13 
: H=2 : RETURN 

740 INTERVALOFF: CIRCLE (70, 140) , ST, CO: ST=ST 
+H: IFST>23THENH=-2: CO=1ELSEIFST<13THENH=0: 
CO= 1 : T2=T2+ 1 : I FT2=3THENT2=0 : H=2 : CO=RND ( 1 ) * 
13+2 

750 T1=T1+1: IFTl=2THENFÜEL=FUEL-5:GOSÜB124 
0:T1=0 

760 INTERVALON: RETURN 
770 ' ■ LEVEL 3 ■ 

780 XT=12: YT=90:KL=l:TX$="Level 3... Bijna 
boven de grond. ": GOSUB1150: XT=12: YT=100: TX 
$="Let op de energiebarrieres !":GOSUB1150 
: SETPAGE0, 3: COLOR, 4, 4: CLS: GOSUB1630 
790 LINE(2,207)-(35, 190) , 1, BF: LINE (36, 207) 
-(120, 153), 1,BF: LINE (121, 190)- (150, 207) , 1 , 
BF: D$="" : F0RA=1T05: D$=D$+"E1U2" : NEXT: D$=D$ 
+"elul" : F0RA=1T05: D$=D$+"F1D2" : NEXT: D$=D$+ 
"F1D1L6" : DRAVBM52, 207C6A0S7XDS; " : DRAVBM8 
2 , 207XD$ ; " : DRAW" BM5 1 , 153 A2XD$ ; " 
800 DRAW" BM8 1 , 153XDS; " : LINEQ05, 153)- (120, 
170 ) , 6 , BF : DRAW" BM120 , 170XD$ ; " : L I NE ( 15 1 , 207 
)-(250,80), 1,BF: LINE (250, 190)- (175, 180), 10 
,BF:DRAW"BM201, 179C6A0XDS; S4" : LINE (151, 160 
)- (185, 150), 10,BF:LINE(151, 140)- (215, 130), 
10, BF: LINE (250, 165)- (230, 155), 10, BF 
810 LINE (250, 100)- (175, 110) , 10, BF: LINEQ90 
, 79)- (210, 50), l.BF: LINE (210, 49)- (150, 30), 1 
, BF:LINE(150,30)-(105, 100) , 1: LINEQ60, 50)- 
(120, 120), 1: LINE (3, 100)- (120, 120) , 1, BF: LIN 
E(3,99)-(23,40), 1, BF: LINE (3, 20)- (120, 40) , 1 
,BF:CIRCLE(60,55),20, 1, , , 1. 15 
820 LINE(95, 19)-(120, 15) , 1 , BF: PAINT (123, 97 
), 1:PAINT(60,55), 1 : PAINT (56, 205) , 2, 6: PAINT 
(85,205),2,6:PAINT(48, 154) , 2, 6: PAINT(78, 15 
4), 2, 6: PAINT (117, 172) , 2, 6: PAINT (203, 177) ,2 
,6 
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830 GOSUB1290: ONINTERVAL=75GOSUB840: RETURN 
840 INTERVALOFF:LINE(3,60)-(23,80), 13.BF.X 
OR:LIITE<60, 100)- <80, 120) , 13, BF, XOR: T1=T1+1 
: IFTl=2THENFUEL=FÜEL-5: GOSUB1240: T1=0 
850 INTERVALON: RETURN 
860 * ■ LEVEL 4 ■ 

870 XT=2: YT=90:KL=l:TX$="Level 4... Boven d 
e grond. Worstel U" : GOSUB1150: XT=2: YT=100: 
TX$="door de vreemde architectuur heen.":G 
OSÜB1150: SETPAGE0, 3: COLOR, 1, 1: CLS: GOSÜB163 

0 

880 I FDMTHENCOLOR , 1 , 1 : CLS 
890 LINE<1,200)-<10,210), 4, BF: LINE<36, 200) 
- (254 , 2 10 ) , 4 , BF : FORY= 199TO80STEP-40 : L I NE (6 
, Y>-(24, Y-19) , 5: LINE(10, Y)- <30, Y-19) , 5: LIN 
E(36,Y)-(55,Y-19),5:LINE(42, Y)- <62, Y-19) , 5 
: LINB(24, Y-20)- (6, Y-39) ,5: LINE<30, Y-20)- <1 
0, Y-39), 5 

900 L I NE (56 , Y-20 ) - <36 , Y-39 ) , 5 : L I NE (62 , Y-20 
)-(42,Y-39) > 5:NEXT:LINE(6,79)-(10,41),5,BF 
: LINE(36, 79)- (42, 61) , 5, BF: DRAW" BM7 , 199R4BM 
36, 199R6":PAINT(38, 198) , 6, 5: PAINT(8, 198), 6 
,5:LINE(6,45)-(124,41),5,BF:LINE(36,70)-(8 
0,66),5,BF 

910 LINE(76,66)-(80, 199) , 5, BF: LINE (120, 46) 
- (124, 199) , 5, BF: LINE (76, 15)- (124, 41) , 5, BF: 
LINE (120, 167)- (124, 188), 1,BF: Y=195: F0RX=12 
5TO206STEP23: LINE(X, Y)- (X+22, Y-10) , 5, BF: LI 
NE (X , Y-29 ) - (X+22 , Y-37) , 5, BF: Y=Y-4 : NEXT 
920 LINE(125,188)-(147, 181) , 1, BF: LINEQ71, 
182)-(180, 198), 1,BF: LINE (217, 154)- (221, 50) 
, 5, BF: LINE (254, 199)- (250, 70) ,5, BF: LINE (217 
, 46)- (254, 50) , 5, BF: LINE (254, 74)- (240, 70) , 5 
.BF 

930 LINE(80,22)-(119,199),10,BF 

940 GOSUB1290: A2=32: A=0: 0NINTERVAL=4G0SÜB9 

60 

950 RETURN 

960 I NTERVALOFF : L I NE (80 , A2+ A ) - ( 1 19 , A2+A ) , 1 

: LI NE (80, A2+A-15)- (119, A2+A-15) , 10 

970 A=A+1: IFA=15THENA=0: A2=A2+15: IFA2>=195 

THENA2=32:LINE(80,22)-(119, 199), 10, BF 

980 T1=T1+1: IFT1=25THENFUEL=FUEL-2:G0SUB12 

40:T1=0 

990 INTERVALON: RETURN 
1000 ' ■ LEVEL 5 ■ 

1010 XT=12:YT=90:KL=l:TX$="Level 5... Het e 
inddoel in zicht. ": GOSUB1 150: XT=50: YT= 100: 
TX$="Word niet overmoedig ! " : GOSUB1150: SET 
PAGE0, 3 : COLOR, 1,1: CLS: GOSUB1630 
1020 I FDMTHENCOLOR , 1 , 1 : CLS 
1030 CIRCLE<30,50),30, 10, , , 1. 1: PAINT (30, 50 
), 10:CIRCLE(40,65),20, 11, , ,1. 1: PAINT (40, 65 
), 11:CIRCLE(128,244), 110, 4, PI*. 15, PI*. 9, .8 
: LINE(27,210)-(230,210),4:PAINT(128,200),4 
1040 CIRCLB(54, 120), 50, 9, , , .25: LINE (40, 133 
)-(70, 147), 9, B: PAINT (42, 135) , 12, 9: PAINT(54 
, 120),9:CIRCLE(36,140),4, 14, , , 3: DRAW"BM39, 
140L2":PAINT(36, 140) , 14: LINE(43, 137)- (53, 1 
43) , 5, BF: LINE (57, 137)- (67, 143) , 5, BF: DRAW" B 
M40, 117" : C0L0R15: PRINT#1, "GNOP" 
1050 VIN$="H11D11R11" : DRAW" BM15 , 115C9A0XVI 
N$; " : DRAW" BM5 , 137A3XVIN$j " : DRAWBM2, 120 A0R 
5" : PAINT (7, 110) ,9: PAINT (10, 129) , 9 
1060 C0PY(2, 100)- (106, 148),3TO(75,60),3:LI 
NE (254, 210)- (230, 157) , 3, BF: LINE (254, 156)- ( 
200, 100),3,BF:DRAW"BM207, 105C15" : PRINT#1, " 
PLANE" : DRAVBM212, 115" : PRINT#1, "SHOP" : CIRC 
LE(226, 137), 15,5, , , . 7: PAINT (220, 135), 5 
1070 CIRCLE(230,85), 15, 15, 1.67*PI, . 13*PI, . 
7: DRAWBK243, 91ND8NG8H2D1H2" : LINE(118, 155) 
-(125,205), 1:LINE(138, 155)- (145, 205) , 1: LIN 
E(125, 190)- (175, 206), 1, BF: PAINT(121, 157), 1 
:LINE(230, 175)-(246, 192), 1,BF 



1080 RA=108: H=2: C0=13: GOSUB1290: ON INTERVAL 
=6GOSUB1090: RETURN 

1090 I NTERVALOFF: LI NE (128- (RA- 108) , RA)- (12 
8+RA-108, RA) , CO: RA=RA+H: IFRA=>155THENH=-2: 
CO= 1 : ELSE I FRA< = 108THENH=2 : CO=RND (-T I ME ) * 13 
+2 

1100 T1=T1+1: IFT1=12THENFUEL=FUEL-3:G0SUB1 
240:T1=0 

1110 INTERVALON: RETURN 

1120 GOTO1120 

1130 '■ ROUTINES ■ 

1140 A=USR1(0):SOUND7,&B110111:SOUND8, 15: S 
0UND6 , 1 : FORW= 1TO20 : NEXT : FORJ =0TO3 1 : SOUND6 , 
J : SOUND8 , 15 : FORW=1TO20 : NEXTW, J : RETURN 
1150 COLORKL, 0: FORPL=lTOLEN(TX$) : PRESET (XT 
,YT),0,TPSET:PRINT#1,MID$(TX$,PL, 1): IFDBTH 
ENPRESET (XT+ 1 , YT ) , 0 , TPSET : PR I NT#1 , MI D$ (TX$ 
,PL, 1) 

1160 XT=XT+7:NEXT: IFDBTHENDB=0: RETURNELSER 
ETURN 

1170 FORI=0TO7:COLOR=(15, 1,1, I ) : FORW=1TO10 
0: NEXTW, I : FORW=1TO250: NEXT: FORI=7TO0STEP-1 
: COLOR= (15, 1,1,1): FORW=1TO100: NEXTW, I : RETU 
RN 

1180 DEFUSR2=&H41: A=USR2 (0) : COLOR: COLOR= (4 
,0,0,0): C0L0R=(6, 0,0,0): C0L0R=(15, 0, 0, 0) : D 
EFUSR2=&H44 : A=USR2 (0 ) : RETURN 
1190 FOR I =2T015 : FOR I 2=7TO0STEP- 1 : COLOR= ( I , 
12, 12, 12 ):F0RW=1T025: NEXTW, 12, I:FORW=1TO10 
00: NEXT: RETURN 

1200 FOR I =0TO2 : STR I G ( I ) OFF : NEXT : KEY ( 1 ) OFF : 
I NTERVALOFF: SPRITEOFF: SCREEN5, 2 : CLOSE: OPEN 
"grp:"ASl: RETURN 

1210 A=USR1(0):SOUND7,55:SOUND8, 15:SOUND6, 
12: F0RI = 15T02STEP-1: S0UND8, I : FORW=1TO50: NE 
XTW, I : A=USR1 (0) : RETURN 

1220 X=PEEK(&HD092) : Y=PEEK(&HD093) : RETURN 
1230 A=USR1(0):SOUND7,&B11100111:SOUND6, 17 
: SOUND8 , 16 : SOUND9 , 16 : FOR I = 1T02 : S0UND13 , 4 : S 
OUND12 , 15 : SOUND1 1 , 100 : FORW=1TO500 : NEXTW, I : 
S0UND8, 15: S0UND9, 15: FOR I = 1 5 TO0 STEP- 1 : SOUND 
8, I.-S0UND9, I:C0L0R=(4, 1/2, 1/2, I/2):F0RW=1T 
025: NEXTW, I : COLOR: RETURN 

1240 IFFUEL<=0THENFUEL=130: GOSUB1730ELSEGO 
SUB1250: RETURN 

1250 LINE (39, D- (104, 14) , 14, BF: LINE (39, 5)- 
(39+FÜEL/2, 9) , 13, BF: RETURN 

1260 LINE(154, 1)-(182, 14) , 14, BF: XT=154: YT= 

4:SC$=RIGHT$(STR$(SC) , LEN(STR$(SC) )-l) : TX$ 

=R I GHT$ (" 0000" +SC$ , 4 ) : G0SUB1 150 : RETURN 

1270 Y=107: Y2=106: X2=127: F0RX=128T0256 

1280 COPY (X, Y)- (X2, Y) , 3T0(X, Y) , 0: COPY (X, Y2 

)- (X2, Y2) , 3T0(X, Y2> , 0: COPY(X, Y)- (X, Y2) , 3T0 

(X,Y),0:COPY(X2, Y)-(X2,Y2),3T0(X2, Y),0:Y=Y 

-1: Y2=Y2+1: X2=X2-1: NEXT:. RETURN 

1290 LINE (0,0)- (255, 211), 6, B: RETURN 

1300 Y2=192: X2=16: FORY=0TO212STEP32: FORX=0 

T0256STEP32: COPY (X, Y)- (X+16, Y+16) , 3T0(X, Y) 

, 0: C0PY(X2, Y2)- (X2+16, Y2-16) , 3T0(X2, Y2) , 0: 

X2=X2+32 : NEXT : X2=16 : Y2=Y2-32 : NEXT 

1310 Y2=208: X2=0: FORY=0TO212STEP32: F0RX=16 

T0256STEP32: COPY (X, Y)- (X+16, Y+16) , 3T0(X, Y) 

, 0: C0PY(X2, Y2)- (X2+16, Y2+16) , 3T0(X2, Y2) , 0: 

X2=X2+32: NEXT: X2=0: Y2=Y2-32: NEXT 

1320 COPY (0, 192)-(255,211),3TO(0, 192), 0:R 

ETURN 

1330 Y=0: FORX=0TO255: LINE(X, Y)- (255-X, 211- 

Y) , 1, B: Y=Y+1. 2: NEXT: RETURN 

1340 SPATIE/VUÜRKNOP ■ 

1350 GOSUB1210: GOSUB1200: Q=0: RETURN520 

1360 GOSUB1210: GOSUB1200: Q=l: RETURN520 

1370 GOSUB1210: GOSUB1200: Q=2 : RETURN520 

1380 SPRITE DATA ■ 
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1390 RESTORE1430: FQRI=0TO8: A$="" : F0RI2=1T0 
32: READB$: A$=A$+CHR$ (VAL ("&h"+B$) ) : NEXT: SP 
R I TE$ ( I ) = A$ : NEXT : FOR I =9T01 1 : SPR I TE$ ( I ) =SPR 
ITE$ (0) : NEXT: ONSFRITEGOSUB1670 
1400 FORI=0TO3: A$="" : F0RI2=1T016: READB: A$= 
A$+CHR$ (B ) : NEXT : COLORSPR I TE$ ( I ) =AS : NEXT 
1410 A$="" : F0RI=1T016: READB: A$=A$+CHRfc (B) : 
NEXT: COLORSPR ITE$ (8)=A$ 

1420 F0RI=1T05:READXG(I), YG(I),XF(I), YF(I 
) , XV ( I ) , Y V ( I ) , XE < I ) , YE < I ) : NEXT : RETURN 
1430 DATA00, 00, 00, 00, F8, 3C, IE, 7F, FF, 7F, IE, 
3C, F8, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, F0, CC, 
FF, 00, 00, 00, 00, 00, 00 

1440 DATA00,00,00,00,00,00, 1F, 33, FF, 00, 00, 
00, 00, 00, 00, 00, 00, 00, 00, 1F, 30, 78, FE, FF, FE, 
78,30, 1F, 00, 00, 00, 00 

1450 DATA80, 00, E0, F0, DC, AF, DF, AF, DE, F8, FD, 
3B, 1B,0F,03,00,00,00,00,00,00,C0,F8, IE, FF, 
7B,F5,FB,F5,FB,FF,7F 

1460 DATA03 , 0F , 1F, 70, 70, FC, FC, FC, FC, FC, FC, 
7F, 7F, 0C, 18, 30, 00, F0, F8, IE, IE, FF, FF, 3F, FF, 
FF, FF, FE, FE, 30, 18,00 

1470 DATA00, 30, 78, EC, C4, 00, C0, 00, D8, CC, C6, 
C6,C6,EE,78,30,00, 18, 30, 72, El, El, El, El, El, 
FF,E1,E1,E1,E1,E1,E1 

1480 DATA00, 00, E3, E3, D5, D5, 09, 09, C9, 09, C9, 
09, 09, 09, 09, C9, 00, 00, 7F, 78, 60, 60, 60, 60, 60, 
70, 70, 60, 60, 60, 78, 7F 

1490 DATA00, IC, 3E, 73, 61, 61, 61, 61, 61, 61, 61, 
61, 61, 73, 3E, IC, 00, 00, 61, 61, 61, 61, 61, 61, 61, 
61, 61, 61, 71, 3B, 1E,0C 

1500 DATA00, 00, FE, F0, C0, 00, 00, 00, F8, E0, 00, 
00, 00, 00, F0, FE, 00, 00, F0, 08, 04, C2, 02, 04, 08, 
F0,D8,C8,CC,C4,C6,C2 

1510 DATAFF, F3 , 6 1 , 00 , 00 , 30, 45 , 42 , E2 , 85 , E9 , 
00, 00, 61, F3, FF, FF, CF, 86, 00, 00, 97, 02, 24, 24, 
48, 48, 00, 00, 86, CF, FF 

1520 DATA 0,0,0,0,14,14,14,15,15,9,14,14,1 
4,0,0,0 

1530 DATA 0,0,0,14,14,14,15,15,9,14,14,14, 
0,0,0,0 

1540 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1550 DATA 6,6,6,15,2,2,2,2,2,2,2,2,2,6,6,6 
1560 DATA 12, 12, 12, 12, 15, 15, 15, 15, 15, 15, 15 
,15,12,12,12,12 

1570 DATA 220,190,183,106,10,190,120,16 
1580 DATA 50,191,10,79,120,193,238,32 
1590 DATA 52,57,5,104,5,190,100,14 
1600 DATA 174,183,128,172,17,195,240,52 
1610 DATA 160,190,-20,-20,5,195,230,175 
1620 MEDEDEL INGBALK ■ 
1630 LINE(0,0)-(255, 14) , 14, BF: KL=1: XT=2: YT 
=4: DB=1: TX$=" FüEL : " : G0SÜB1 150 : GOSÜB1240 : XT 
=110: YT=4: DB= 1 : TX$=" SCORE : " : GOSUB1150: GOSÜ 
B1260 

1640 F0RI=9T011:PUTSPRITEI, (-1, -1) , 0: NEXT: 
F0RI=9T09+LV-1: PUTSPRITEI , (1*18+30,-2) , 8: N 
EXT: PUTSPRITE0, (XV (R) , YV (R) ) : POKE&HD092 , XV 
(R) : POKE&HD093, YV(R) : PUTSPRITE2, (XG(R) , YG( 
R) ) , 7: PUTSPRITE3, (XF(R) , YF (R) ) : PUTSPRITE8, 
(XE(R) , YE(R) ) 
1650 RETURN 

1660 ' ■ SPR I TE BOTSING ■ 
1670 SPRITEOFF: INTERVALOFF: GOSUB1220 
1680 IFABS (XG (R)-XX=16ANDABS (YG (R)-Y)<=16 
THENA=USR1 (0) : S0UND7, 252: S0UND8, 15: S0UND9, 
15: FORI=255TO0STEP-2: SOUND0, I : S0UND2, 1/2: N 
EXT: S0UND8, 0: S0UND9, 0: GOSUB1210: PUTSPRITE2 
, (- 1 , - 1 ) , 0 : G=G+ 1 : SC=SC+ 100 : GOSUB1260 : SPR IT 
EON: INTERVALON: RETURN: '13ELD GEPAKT 



1690 IFABS(XF(R)-XX=16ANDABS(YF(R)-Y)<=16 
THENA=USR1 (0) ; PLAY." V15S0M5000Q5G-" : PUTSPRI 
TE3, (-1, -1) , 0: IFFUEL<130THENFUEL=FUEL+15:S 
C=SC+50: GOSUB1240: GOSUB1260: SPRITEON: INTER 
VALON: RETURNELSESC=SC+50: GOSUB1260: SPRITEO 
N: INTERVALON: RETURN: '| TANKJE (F) GEPAKT 
1700 IFABS (XE (R) -XX=16ANDABS ( YE (R) -Y) <=16 
ANDR=GTHEN INTERVALOFF: SPRITEOFF: GOTO1810: * 
| EINDE LEVEL 
1710 GOTO1730: '| DOOD 
1720 ' ■ DOOD ■ 

1730 INTERVALOFF: GOSUB1230: FORI=7TO0STEP-1 
:C0L0R=(15, 1,1, I ) : COLOR= (14, 1,1, I):COLOR=( 
9, I, I, I):C0L0R=(8, 1,1, I ) : F0RV=1TQ25: NEXTV, 
I:LV=LV-1: IFLV=0THEN1760: '| GAME OVER 
1740 FOR I=0TO3: PUTSPRITEI, (-1+16*1 , -20) : NE 
XT:GOSUB1630:COLOR: SPRITEON: INTERVALON: IFR 
=GTHENG=G-1: INTERVALON: RETURNELSE I NTERVALO 
N: RETURN 

1750 GAME OVER ■ 

1760 INTERVALOFF: SPR ITEOFF: PUTSPRI TE9, (-1, 
-1) , 0: COLOR: A=USR1 (0) : PLAY" V13T100O2DEFED" 
: FOR I=13T02STEP-2: PLAY" V=I; 01C-C-" : NEXT 
1770 IFPLAY(0)THEN1770 

1780 PLAY"V0" : A=20: F0RI=4T07: F0RI2=211T011 
0STEP-1: PUTSPRITEI, (I*18+A, 12) , 15: F0RV=1T0 
10: NEXT: IFI=6THENA=40: NEXT 12, I : ELSENEXTI2, 

1790 FORV=1TO7000: NEXT: GOSUB1190: GOTO1940: 
'■ HIGHSCORE ? 

1800 EINDE LEVEL- > VOLGENDE LEVELBI 

1810 A=USR1(0):PLAY"V15T150O5S8M12000DAFGE 
FD." 

1820 IFPLAY(0)THEN1820 

1830 A=USR1 (0) : S0UND7, 254: S0UND8, 15: SOUND0 
, 150: FORAF=FUELTO0STEP-2: SC=SC+2: FUEL=FUEL 
-2: SOUND0, AF+60: GOSUB1260: GOSÜB1250: NEXT: A 
=USR1(0):FUEL=130 

1840 FORI=0TO11: PUTSPRITEI, (-20, -20) : NEXT: 
FORI=0TO106:LINE(0, I)-(255, I), 1:LINE(0,211 
- I ) - (255 , 2 1 1- I ) , 1 : NEXT : COLOR , , 1 : R=R+ 1 : I FR= 
6THEN1860ELSERETURN540 
1850 ' ■ GEHAALD ■ 

1860 SOÜND7,&B11110111:SOUND6,0:SOUND8, 15 
1870 FORA=1TO20:FORI=0TO7:SOUND6, 1*4: COLOR 
= (1, I, I, I):FORV=1TO40-A*4: NEXTV, I, A:COLOR: 
FORV=1TO100: NEXT: F0RS=IT032: S0UND6, S: FORV= 
1T025: NEXTV, S: FORV=15TO0STEP-1 : S0UND8, V:'FO 
RV= 1 T025 : NEXTV, V.-SETPAGE0, 3: COLOR 15, 1, 1:CL 
S: FOR I=0TO11: PUTSPRITEI , (-20, -20) : NEXT 
1880 FORA= 1TO50 : X=RND ( 1 ) *255 : Y=RND ( 1 ) *2 1 1 : 
KL=RND ( 1 ) * 1 5 + 1 : C I RCLE ( X , Y ) , 1 , KL : NEXT : P I = AT 
N(1)*4:CIRCLE(50,50) , 30, 9: PAINT (50, 50) , 9: C 
IRCLE(50,50),37, 15, PI*. 8, PI*. 2, . 2: CIRCLE (1 
40, 170) , 15, 14: PAINT (140, 170) , 14 
1890 LINE(90, 122)- (170, 122) , 2: LINE(90, 122) 
-(94, 117), 2: LINE (170, 122)- (166, 117), 2: L INE 
(94, 117)-(166, 117),2:PAINT(96, 119),2:LINE( 
100, 120)-(125, 127), 11,BF:LINE(103, 123)-(12 
2, 127), 6, BF: LINE (135, 120)- (160, 127), 11, BF: 
LINE (138, 123)- (157, 127), 6, BF 
1900 LINE(166, 116)- (128, 95) , 12: LINE (94, 116 
)- (128, 95), 12: LINE (166, 116)- (94, 116), 12: PA 
INTQ60, 114), 12: LINE (128, 95)- (128, 93), 15: D 
RAVBM118, 110S4A0C5E10F10L20" : PAINTQ22, 10 
8 ) , 5 : DRAV" BM96 , 1 16C2E7U9G7D9" : PA I NT (99 , 1 10 
) , 13,2:DRAV"BM165, 117C2H7U9F7D9" 
1910 PAINT(164, 110), 13,2:LINE(85,211)-(110 
, 130), 15:LINE(95,211)-(115, 150) , 15: LINE (18 
0,211)-(155, 130), 15:LINE(170,211>-(145, 150 
), 15:PRESET(85,70):PRINT#1,"OP NAAR HUIS!" 
1920 SETPAGE3, 3: S0UND8, 15: S0UND6, 10: F0RA=1 
TO40:FORI=0TO7:COLOR=(6, 1,1, I ) : FORV=1TO10: 
NEXTV, I, A:FORI=15TO0STEP-1:SOUND8, I:F0RV=1 
T025: NEXTV, I : GOSUB1190: A=USR1 (0) 
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1930 ■ I NVOER+SORTEER HIGHSCORES ■ 
1940 SCREEN0: WIDTH40: KEYOFF: COLOR: COLOR15, 
1, l:CLS:PRIFT"üw score was: " ; SC: PRIST: IFSC 
<SF(9)THEFA=USR3<0):PRIFT"Druk op een toet 
s" ; : T$= I SPÜT$ ( 1 ) : GOTO1980 
1950 A=ÜSR3(0>:LIirEINPüT ,, üw naam <max. 20 
letters) ; " • NM$ 

1960 SF <9 ) =SC: 1$ (9 ) =LEFT$ <M$ , 20 ) : FOR I=9T0 
2STEP- 1 : I FSF ( I XSF < I- 1 ) THEB1970ELSESWAPSF ( 
I),SF<I-1):S¥APN$(I),N$(I-1) 
1970 SEXT 

1980 WIDTH35: GOSÜB430: L0CATE4, 20: PRIFT'Dru 

k op een toets " ; : A=ÜSR3(0) : T$=INPÜT$ <1 

) : GOTO160 

1990 ' B LAAD/SAVE SCORETABEL ■ 
2000 SCREEN0: VIDTH80: KEYOFF: C0L0R15, 1: CLS 
2010 PR I BTSPC (27 ) ; " LADES/SAVEN HIGHSCORETA 
BEL" : PRIFTSPC (27 ) ; " 

■Hl 

2020 LOCATE0, 5: PRIST" Koet er een highscore 
tabel ingelezen (1) of weggeschreven (2) w 
orden " ; ; INPUTK: IFK<10RK>2THENBEEP: GOTQ202 
0 

2030 IFK=2THEN2050 

2040 GOSUB2060: OPEN" Hl STAR, DAT" FOR INPUT A 
S#2:FQRI=1TQ9: INPUT#2, SF ( I ) : INPUT#2, N$ < I ) : 
NEXT: CL0SE#2: VIDTH35: GOSUB430: LOCATE4 , 20; P 
R INT" Druk op een toets, ,..";: T$= INPUTS (1 ) : 
GOTO160 

2050 GOSUB2060: OPEN" Hl STAR. DAT" FOR OUTPUT 
AS#2 : FOR I = 1T09 : PR I NT#2 , SF < I > : PR I NT#2 , N$ ( I > 
: NEXT ; CL0SE#2 : GOTO160 

2060 PRINT: BEEP: PR INT" Steek de juiste disk 
/cassette in de diskdrive/recorder (een fo 
ut stopt het pro- gramma ! ! )" : PRINT"En dru 

k op toets "; : T$=INPUT$ <1>: RETURN 

2070 1 ■ MT PLAATSEN ■ 

2080 PRINT" Ik plaats nu de MT. " ; RESTORE210 
0: CHECK=0; FQRI=&HD000TQ&HD094: READAS : A=VAL 
("&H"+A$> ; CHECK=CHECK+ A : POKEI , A: NEXT: IFCHE 
CKO&H2ED7THENBEEP: POKE&HD000, 0: PR INT" Fout 

in data's! ! ! " : END 
2090 DEFUSR3=&H156; RETURN 
2100 DATA 21,92,D0,7E,47,23,7E,4F,C5,23 
2110 DATA 7E, CD, D5, 00, 57, Cl, FE, 00,08, FE 
2120 DATA 01, 28, IC, FE, 02, 28, 1B, FE, 03, 28 
2130 DATA 1B, FE, 04, 28, IA, FE, 05, 28, IA, FE 
2140 DATA 06,28, 19, FE, 07, 28, 16,05, 0D, 18 
2150 DATA 13,0D, 18, 10,04,0D, 18,0C,04, 18 
2160 DATA 09, 04, 0C, 18,05, 0C, 18,02, 0C, 05 
2170 DATA 7A,D6,06,38,0D,21,00,76,3E,E8 
2180 DATA CD, 77, 01, 21, 04, 76, 18, 0B, 21, 04 
2190 DATA 76, 3E,E8, CD, 77, 01, 21, 00, 76, 78 
2200 DATA FE, FF, 28, 17, FE, F0, 28, 16, 23, CD 
2210 DATA 77, 01, 79, FE, 0C, 28, 10, FE, C5, 28 
2220 DATA 0F, 2B, CD, 77, 01 , 18» 0A, 04, 18, EE 
2230 DATA 05, 18, EB, 0C, 18, 01, 0D, 78, 32, 92 
2240 DATA D0, 79, 32, 93, D0, C9, 00, M 
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INFOMENU 
MSX 1&2 
i* disk 

Als Infomenu wordt gestart 
verschijnt, nadat de machi- 
necode is ingeladen, een in- 
f ormatiescherm. In het ven- 
ster rechtsboven wordt wat 
algemene informatie gege- 
ven t.w.: de vrije ruimte op 
de disk in bytes, of de 
computer met CTRL- toets 
is opgestart Cdus met 1 lo- 
gische drive), het aantal 
programmanamen (dus niet 
speciaal de filenamen) dat 
in Infomenu is ingebracht, 
de grootte van het geheu- 
gengebied in bytes, dat nog 
beschikbaar is voor nieuwe 
namen en gegevens ('leeg' is 
dit ca. 14 Kb). Onder deze 
gegevens is nog een regel 
met Hl posities beschikbaar 
voor algemene gegevens 
over de disk zoals merk, 
soort programma's e.d. 

In het venster linksboven staan de namen 
van de programma's. Er kunnen max. 15 
programmanamen tegelijk worden getoond, 
maar met de cursortoetsen OP/NEER kun- 
nen alle namen in het venster gehaald 
worden. Bovendien kan hiermee het pro- 
gramma waarvan je meer wilt weten en/of 
dat je wilt inladen tussen de pijltjes in 
het midden van het venster gescrold wor- 
den. Van het aldus aangewezen programma 
wordt onderop dan nadere informatie ge- 
toond. De vaste informatie die per pro- 
gramma is in te brengen bestaat uit: een 
nadere omschrijving van het soort pro- 
gramma, het MSH-type Cl, 2 of 1+E), een 
aanduiding of het programma onder DOS 
draait; als dit het geval is voert Infomenu 
bij het inladen de 'DOS poke' C&HF34G,1) uit. 
Voor het aanwezig zijn van DOS op de disk 
moet de gebruiker zelf zorgen. Tenslotte 
kan aangegeven worden of de computer 
met de CTRL toets opgestart moet zijn om 
dit programma te laden. Indien dit niet 
het geval is, wordt het betreffende pro- 
gramma niet ingeladen. Onder deze vaste 
informatie volgen nog 4 regels van 40 po- 
sities, waarin allerlei aanvullende gegevens 
over het programma geplaatst kunnen 
worden. Onder deze 4 regels, naast de in- 
verse letter R Cvoor RUN), volgt nog een 
bijzonderheid van Infomenu. Hier kan wor- 
den aangegeven hoe het programma precies 
geladen c.q. geRUNd moet worden. Hiertoe 
wordt de tekst op deze regel, kort voor 
het inladen, in de keyboardbuffer gezet, 
waarbij de pijltjes worden vertaald in 
CHR$C13) (=RETURN). Tenslotte worden de 
standaard (voorkeurs)waardes weer inge- 
steld, de HIMEM weer op de normale start- 
waarde geCLEARd en NEWed Infomenu zich- 
zelf. Hierna gaat het operating system 
vanzelf de keyboardbuffer uitlezen, zodat 
het programma op de door de gebruiker 
gewenste manier wordt ingeladen. 

Op deze manier kan b.v. een BLOAD op- 
dracht voorafgegaan worden door een 
CLEAR opdracht Czie b.v. VERSCRIPT). Deze 
truuk gaat echter alleen op als het te 
laden programma, c.q. de voorlader deze 
buffer niet schoonmaakt. De keyboardbuf- 




fer kan max. 39 tekens bevatten en ande- 
re besturingstoetsen dan de RETURN kun- 
nen niet vantevoren in de buffer gezet 
worden. 

De functietoetsen 

Fl: Hiermee kunnen nieuwe programmagege- 
vens of algemene gegevens ingebracht 
worden. De nieuwe gegevens worden tus- 
sengevoegd onder het programma waarvan 
de gegevens op dat moment getoond wor- 
den. Om deze reden is het bovenste pro- 
gramma altijd een lege dummyfile die niet 
te verwijderen is, zodat het mogelijk is 
een nieuw programma bovenaan de lijst te 
zetten. Bij het invoeren van de LIOAD/RUN 
regel moet om het indrukken van de 
RETURN toets bij het inladen te simuleren, 
het Pond- teken gebruikt worden, aange- 
zien de echte RETURN hier nodig is om het 
einde van de invoer aan te geven. 

FS: Voor het verwijderen van de program- 
magegevens van het programma dat op dat 
moment getoond wordt. 

F3: Met deze keuze wordt de totale pro- 
grammagegevens data met aansluitend de 
mach. code naar de disk geSAVEd. Het 
BASIC deel van de menulader wordt niet 
vanuit deze optie geSAVEd. Na een veran- 
dering in de data via keuze Fl en/of FS 
wordt het woord SAVEn op een meer opval- 
lende manier getoond, totdat met F3 de 
actie uitgevoerd is. 

F4: Dit is voor een definitief stoppen van 
Infomenu zonder inladen van een program- 
ma. Als Infomenu alleen maar onderbroken 
moet worden, dient de CTRL/STOP combina- 
tie gebruikt te worden. Aangezien alle be- 
langrijke gegevens direct in het geheugen 
gePOKEd warden, kan in dit geval met RUN 
weer gewoon verder gewerkt worden. 

F5: Met F5 wordt het getoonde programma 
ingeladen en evt. uitgevoerd conform de 
opdrachten zoals die bij het inbrengen van 
de programmagegevens onderaan het 
scherm zijn neergezet. 
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GRAPH+P Cof FG): Hiermee kan een hardcopy 
op de printer gemaakt worden van de pro- 
grammagegevens die op dat moment ge- 
toond worden. Aangezien voor iedere hard- 
copy van een programma apart een op- 
dracht gegeven moet worden, kan men des- 
gewenst een catalogus van de programma- 
gegevens op de disk samenstellen, waarbij 
de volgorde van de gegevens niet hoeft 
overeen te komen met de volgorde zoals ze 
in de data staan. De printercodes kunnen 
zonodig aangepast worden in de regels 
180-200. Als een niet MSK- printer gebruikt 
wordt, dienen de speciale tekens in de da- 
taregels 6120-6140 tevens veranderd te 
worden in tekens die op de printer het- 
zelfde of een soortgelijk teken geven. 
Voor het 'RETURN-pi jlt je' in de L0AD/RUN 
regel wordt op een MSK printer het cursor 
links teken CCHR$ 208) afgedrukt. 

Infomenu kan gegevens van max. 240 pro- 
gramma's onthouden. Weliswaar gaan er 
slechts 112 files in een directory, maar je 
kunt desgewenst hetzelfde programma 
meerdere keren in Infomenu opnemen met 
b.v. telkens een andere voorselectie van 
toetsaanslagen. Hoeveel programma's Info- 
menu werkelijk kan bevatten, hangt trou- 
wens toch grotendeels af van de grootte 
van de informatie die men aan de pro- 
grammagegevens meegeeft. 

C.W. Jager 



10 ' INFOMENU 

20 'CV. Jager Capelle a/d IJssel 
30 * <c> 1988 MSX-gids Lelystad 
40 ' 

50 » | VERANDER ZONODIG DE GEGEVENS IN DE 
REGELS 160 T/M 200 

60 ' GRAPH+TOETS=: R= | — =— T=t Y=i F=KH=H V= 
L B=-»- N= J S=M 

70 'GRAPH+SHIFT+TQETS=:V=| S=X !=■ 
80 ' 

90 'BEGININIT, + BEELDOPBQUV 

100 SCREEN0 ; VIDTH40: BASE(0)=0; BASE (2) =2048 

: KEYOFF: CLS: CQL0R1, 15 

1 10 ONSTOPGOSUB80 0 0 : STQPQN; ONERRORGOTO8020 

120 RESTORE7020 : GOSÜB7000 : GQSUB500 

130 DW=FNA(&HFC4A) : I FD¥=4 1589 ! ANDPEEK (4188 

0! ) =50ANDPEEK (42465 ! )=201THEN150 

140 CLEAR700, 41589! : BLOAD" MENUDATA . BIN" 

150 DEFSNGA-G: DEFINTH-Z: GOSUB500 

160 D2=56952! : 1 Hl MEM C =PEEK(&HFC4A)+256*PE 

EK (&HFC4B) ] BY START/RESET 

170 Dl=58510!:' IDEM MAAR MET CTRL-TOETS 

(1 LOG, DRIVE) 

1 80 P I $=CHR$ (27 ) +» E" +CHRS (27 ) +»" L007" +CHRS ( 

27)+"B": 1 PRINTERINIT. : ELITE +KANTLYN 7 + 

1/8 INCH REGELOPV, 

190 PB$=CHR$ (27 ) +" ! 11 : * VET PRINTEN 

200 PN$=CHR$ (27)+CHR$ (34) : 'NIET VET 

210 DEFUSR0=42140! : DEFUSR1=42056! : DEFUSR2= 

42077! 

220 FORN=1TO10: KEYN, CHR$ (213+N) ; NEXT 

230 LD=PEEK (&HFB2 1 ) 

240 U=USR ( 1 > s RESTORE7030 : GOSUB7000 

250 IFPEEKU1602! )=1THENRESTORE7060; G0SUB7 

000 

260 U=USR(8):GOSUB520:GOSUB540: IFLD=1THENL 

0CATE22,2:PRINT"JA" 

270 U=USR1(0):U=ÜSR(8):GOTO1000 

470 ■ 

480 ■ 



490 ALG, SUBROUTIIBS 

500 DEFFNA (DA) =PEEK (DA) +256*PEEK (DA+1 ) 
510 RETURN 

520 L0CATE14, 2: PR I NTUS I NG" ######" ; DSKF (0)* 
1024 

530 RETURN 

540 PA=PEEK (41599! ) - 15 : L0CATE26 , 2 : PR I NTUS I 
NG" ###" ; PA 

550 PV=D2-FNA (41600! ) - 1 : L0CATE32 , 2 : PR I NTUS 

ING"#####";PV 

560 RETURN 

570 I F I NKEYSO" " THEN570 

580 I$=INKEY$: IFI$=""THEN580 

590 KZ=INSTR(KZ$, I$): IFKZ=0THEN580 

600 RETURN 

610 1?$="" 

620 IL=LEN(IP$):L0CATEIX, IY:PRINTIP$; : IFIL 

< IMTHENPRINT"<" 

630 I$=INKEY$: IFI$=""THEN630 

640 IFI$OCHR$(8)THEN660ELSEIFIL=0THEN620 

650 IP$=LEFT$(IP$, IL~1):LQCATEIX, IY: PRINTS 

PC(IM):GOTO620 

660 IFI$=CHR$(13)THENL0CATEIX, IY;PRINTSPC( 

IM) : LOCATEIX, IY: PRINTIPS: RETURN 

670 IFI$<" " OR I L= I MTHEN620 

680 I F I $=» £" AND I Y=2 1 THEN I $=CHR$ (208 ) 

690 IP$=IP$+I$:GOTO620 

700 POKE41602! , 1: RESTORE7060: GOSUB7000 

710 RETURN 

720 U=USR (3 ) : GOSUB7000 : L0CATE19 , 13 ; PR I NT" D 

RUK EEN TOETS" 

730 IFINKEY$=""THEN730 

740 RETURN 

750 U=USR(3):GÖSUB7000:LOCATE20, 13: PR I NT" D 
ruk J of N" 

760 KZ$="nNj J" : GQSUB570; U=USR <3> : KZ=1+ (KZ< 
3) 

770 RETURN 
970 ■ 
980 * 

990 ' HOGFDLUS 

1000 U=USR (3 ) : RESTORE7080 : GOSUB7000 
1010 LQCATE1, 1: PRINTCHRS (213) : L0CATE1, 1 
1020 KZ=USR(4)-213:PRINT" " ; IFKZ<10RKZ>6TH 
EN1010 

1030 U=USR (3 ) : ONKZGOTO2000 , 3000 , 4000 , 5060 , 
5000, 6000 
1970 ' 
1980 ' 

1990 1 NIEUWE GEGEVENS TOEVOEGEN 

2000 RESTORE7090:GOSUB7000 

2010 KZ$=" 12" : GOSUB570; U=USR (3) : ONKZGOTO20 

20,2050 

2020 LOCATE 1 8 , 3 : PR I NTSPC (21): REST0RE7 110: G 
OSUB7000: IX=18: IY=3: IM=21: GOSUB610: U=USR(3 
) 

2030 F0RN=1T021: IFN> ILTHENX=32: ELSEX=ASC(M 
ID$(IP$,N, 1) ) 

2040 POKE41602! +N, X: NEXT: GOSUB700: GOTO1000 
2050 I FPA=240THENRESTORE7 120 : GOSUB720 : GOTO 
1000 

2060 F0RN=1T015: L0CATE2, N: PR I NTSPC (10) : NEX 
T 

2070 U=USR (2 ) : A$=SP ACES ( 10 ) : REST0RE7 140 : GO 
SUB7000: IX=2:IY=8; IM=10: GOSUB610: MIDS (A$, 1 
> = IP$ 

2080 U=USR (3 ) : REST0RE7 150 : GOSUB7000 : KZ$=" 1 

234" : GOSUB570: ONKZGOTO2090, 2100, 2110, 2120 

2090 KZ$="1 ":GOTO2130 

2100 KZ$="2 ":GOTO2130 

2110 KZ$=" 1+2" :GQTQ2 130 

2120 KZ$=" 

2130 A$=A$+KZ$ 
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2140 U=USR(3>:RESTORE7140:GOSUB7000: IX=14: 

I Y= 16 : I M= 13 : G0SÜB6 10 : A$= A$+CHR$ < I L) + 1 P$ 

2150 RESTORE7160: GOSUB750: A$=A$+CHR$ (KZ> 

2160 RESTORE7170: GOSUB750: A$=A$+CHR$(KZ) 

2170 RESTORE7140:GOSUB7000: IX=0: IY=17: IM=1 

60 : G0SUB6 10 : A$= A$+CHR$ ( I L) + I P$ 

2180 RESTORE7130:GOSÜB7000: IX=1: IY=21: IM=3 

9: GOSUB610: U=USR<3) : A$=A$+CHR$(IL)+IP$ 

2190 A$=CHR$(LEB(A$)+1)+A$: I FLES ( A$ ) > PVTHE 

SREST0RE7 180 : GOSUB720 : GOTO1000 

2200 A$=USR2 <A$ ) : GOSÜB540 : GOSÜB700 : U=ÜSR1 ( 

PEEK (41596! ) ) : GOTO1000 

2970 ' 

2980 » 

299$ 1 DELETE 

3000 IFPEEK (41596! >=1THEN1000 

3010 Ü=ÜSR(5) : GOSÜB540: GOSUB700: Ü=USR1 (PEE 

K (41596! >-2>:GOTO1000 

3970 ' 

3980 ' 

3990 'SAVEB 

4000 RESTORE7230 : GOSÜB7000 : P0KE4 1602! , 0: BS 

AVE" MEBUDATA. BIS" , 41596! , FSA(41600! ) 

4010 RBSTORE7070 : GOSÜB7000 : GOSÜB520 : GOTO10 

00 

4970 ' 
4980 ' 

4990 'STOPPEB ES LOAD+RUS 

5000 IFVPEEK (668 ) =ASC (" 2" ) ABDPEEK (&H2D) =0T 

HESRESTORE7 190 : GOSUB720 : GOTO1000 

5010 IFVPEEK (676) =ASC (" J" > ASDLD> 1THENRBSTO 

RE7200: GOSUB720 : GOTO1000 

5020 U=ÜSR (6) :' Keyboardbuffer laden 

5030 I FVPEEK (672 ) =ASC (" J" ) THESPOKE&HF346 , 1 

: ' DOS-poke 

5040 ' 

5050 ' Begininit. camp. Event. naar eigen 
voorkeur wijzigen 

5060 IFKZ=4THEBRESTORE7210: GOSÜB750: OSKZ+1 
GOTO1000.5070 

5070 WIDTH40: COLOR1, 15: CLS 

5080 U=USR(7>: 'Herstel scherm, func- tietoe 

tsen en DEFUSR adressen 

5090 I FLD=2THENCLEAR200 , D2ELSECLEAR200 , D 1 

5100 DEFDBLA-Z : STOPOFF : OBERRORGOTO0 

5110 SEW: ' Hierna begint evt. laden vanuit 

de keyboardbuffer 
5970 ' 
5980 ' 

5990 'HARDCOPY 

6000 U=ÜSR(9>: IFÜ=255THES6050 

6010 RESTORE7220:GOSUB7000 

6020 Ü=USR (9 ) : I FÜ=255THESU=USR (3 > : GOTO6050 

6030 IFISKEY$=CHR$(27)THES1000 

6040 GOTO6020 

6050 RESTORE7230 : GOSÜB7000 : A$=P I$+PB$ : REST 
ORE6120:KZ$="PVRQ" 

6060 READI$:OBIBSTR(KZ$, I$)GOTO6080, 6090, 6 

110, 1000 

6070 READIPS: F0RB=1T0VAL ( 1$) : A$=A$+IP$ : SEX 
T:GOTO6060 

6080 READIP$: A$=A$+IP$: GOTO6060 
6090 A$=A$+PB$:READX,XA 

6100 F0RB=1T0XA: A$=A$+CHR$ (VPEEK(X+S) ) : SEX 

T: A$=A$+PB$: GOTO6060 

6110 LPR I BT A$ : A$=" " : GOTO6060 

6120 DAT AP , r, 10 , — , P , t, 13 , — , P , i 1 i 

— r, 40, — , P, t , R, P, | SAAK |TYPE PROGR. 

| MSX| DOS | CTRL | , V, 679, 40, P, | , R 
6130 DAT AP , | ,V,321,10,P, | ,V,653, 13, P, | ,V,6 
67, 3, P, |,V,671,3,P, |,V,675,3,P," |",V,71 
9.40.P, |,R 

6140 DATAP, h 10,- P, -S 13,-,P, J 1 1 



,V,759,40,P, |,R,P, |,V,840,39,P, |,V,799, 
40, P, |,R,P, S39,-,P,^,40,-,P,^,R,Q 



6970 ' 
6980 ' 

6990 'PRIBTROUTIBE 

7000 READPRS: IFPR$="0"THESRETURS 

7010 LOCATEASC (LEFT$ (PR$ , 1) )-65, ASC(KID$ (P 

R$, 2, 1) )-65: PRISTMIDS (PR$, 3) ; : GOTO7000 

7020 DATAOLEVEN GEDULD, 0 

7030 DATASB» DISKFRE» CTL* PRGS. ■ KEBUFRE' 

7040 DATA"ODDSK: " , SP* TYPE PROGR. »MSX»DOS 

•CTL» 

7050 DATAAXSieuw Delete Saven Einde 

Load+Ru, 0 
7060 DATAQYISAVESM, 0 
7070 DATAQYSaven ,0 

7080 DATAOGScrall met de cursor door,OHde 
programma' s, OJ Of kies een functietoets, 0L0 
f maak een hardcapy met , OMGRAPH + P,0 
7090 DATAOGl=Diskbenaming, 0I2=nieuwe progr 
. gegevens 

7100 DATATSKAAK UV KEUZE, 0 

7110 DATAOGESTER de diskinformatie, 0 

7120 DATAOGMax. 240 programma' s" , 0 

7130 DATAOLGebruik om bij het.UMladen e 

en RET te, OSgenereren 

7140 DATAQGEnter de gegevens op de.OIplaat 
s van de ' < ' , 0 

7150 DATAOFVoor welk type MSX is,OGdit pro 
gramma?, 01 1=1 , 0J2=2 , 0K3=l+2, OL4=niets invu 
Hen, 0 

7160 DATAGGWerkt dit programma, 01 onder KSX 
-DOS?,0 

7170 DATAOGMoet voor dit progr. met.OICOST 

ROL opgestart warden? , 0 

7180 DATAOGTe weinig ruimte vrij,0 

7190 DATAOGDit progr. loopt alleen, OIop MS 

X2,0 

7200 DATAOGU beeft de computer niet.OImet 
CTRL gestart/reset , 0 

7210 DATAOGDeze keus vernietigt deze, Olmen 

ulader en de data, ULZEKER VETES? , 0 

7220 DATAOGDE PR I STER IS SIET READY, 01 Zet 

de printer 0S-LIBE,0K0f druk ESC,0 

7230 DATAQJEVES GEDULD AUB.0 

7970 * 

7980 1 

7990 'OS ERROR/OS STOP AFHASDEL I SG 

8000 VIDTH36:CLS:PRIBT"Dit is een gewone ' 

BREAK'. De data is SIET vernietigd." 

8010 STOPOFF: ESD 

8020 WIDTH36.-CLS 

8030 PRIST"FOUT SR.";ERR;" IS REGEL" ;ERL 
8040 OSERRORGOTO0:ESD 

CONTR0LETELLIN6 
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10 1 MENUPOKE 

20 * MACH. CODE + HIT. NIEUVE DATA VO 
GR M INFÖMENU" 
30 1 C, V* JAGER 

100 SCREEN0:KEYOFF:¥IDTH36:CLS:COLOR1, 15 
110 CLEAR500, 41589! : DEFSNGA-G: DEFINTH-Z 
120 PRIFT'Dit programma produceert de mach 
ine-code voor * INFOMENU' en initiali- se 
ert een nieuw programmagegevens bestand, 

130 PRINT" Overtuig u er dus ondertussen va 

n dat er een disk waarop u een nieuw me 

nubestand wilt openen in de drive zit (en 

niet write protected) . " 

140 RESTORE10000: RG=10000: AD=41596! 

150 READAS: IFA$="@@@»THEN250 

160 LOCATE0 , 20 : PR I FT' REGEL IN BEHANDELING: 

";RG:CT=0:PS=1:TL=1 

170 FÖRN=1T06 

180 F0RN1=1TÖ4: DL$=MID$ (A$, PS, 2) 

190 PV=VAL("&H"+DL$> : PQKEAD, PV: AD=AD+1 

200 CT=CT+PV*TL : TL=TL+1: FS=PS+2 

210 NEXTN1 

220 PS=PS+1:HEXTI 

230 READCS: IFCTOCSTHENPR INT" FOUT IN REGEL 
" ; RG : END 

240 RG=RG+10:GOTO150 

250 CLS: PRINT" De code is nu klaar om te sa 
ven* Druk RET als de goede disk in de 

drive zit." 
260 IFINKEY$OCHR$(13)THEN260 
270 CLS: BSAVE" MENUDATA ♦ BIN" , 41596! , 42638! 
280 KEYON: END 

10000 DATA01080F0F 8EA60020 20202020 20202 

020 20202020 20202020,10532 

10010 DATA20202020 4A412020 20202020 20202 

020 20202020 D3202020, 13767 

10020 DATAD3202020 D3202020 D3080828 78F87 

820 0040 A070 B870A040, 30093 

10030 DATA00142874 E8742814 0054A854 A854A 

854 A8FC8CB4 B48CACB4, 42628 

10040 DATAFCFCDC8C 04FC048C DC29D327 2001D 

30C 2001D307 2001D303, 23952 

10050 DATA2001D305 2001D307 2002D30C 2001D 

319 2002D30C 201CD30C, 20412 

10060 DATA2001D319 2002D30C 2001D319 2002D 

30C 2001D319 2002D301, 19896 

10070 DATAD10A2001 D201D319 2002D30C 2001D 

319 2002D30C 2001D319, 20806 

10080 DATA2002D30C 2001D319 2002D30C 2001D 

319 2002D30C 2001D319, 20304 

10090 DATA2002D30C 201CD327 200ED30D 200 1D 

303 2001D303 200 1D303, 19632 

10100 DATA2001D3A0 2001D427 20014601 3106D 

301 46013206 D3014601, 16616 

10110 DATA3306D301 46013406 D3014601 3506D 

327 20016E00 32F8F7AF, 27760 

10120 DATA32F9F73E 023263F6 C9AFBEC8 E5219 

8A2 010300CD 5C00E1C9, 36970 



10130 DATA7EFE00C8 06004F23 C5E5CD5C 00E1C 

109 2BC9E523 010A00D5, 30661 

10140 DATAF5CD5C00 F13D280D El 112800 19EBE 

106 004E0918 E5D1E1C9, 34068 

10150 DATA2278A2D5 CDCCA411 0B0019E5 119C0 

201 0300CD5C 00E12323, 23099 

10160 DATA23118E02 CDB4A323 11A002CD A5A32 

311 A402CDA5 A32311A8, 32123 

10170 DATA02CDB4A3 23227 AA2 114903CD B4A3D 

1C9 3A7CA221 E2A51600, 34320 

10180 DATA3D28045E 1918F93E 08112A00 CDC6A 

3CD E4A3233E 07116A01 , 26601 

10190 DATACDC6A3C9 3AF8F73C 327CA2C6 07327 

DA2 C607327E A2CD24A4, 36625 

10200 DATAC92A78A2 16005E19 2278A2EB 2A80A 

2E5 A7ED52E5 C1032AF8, 41081 

10210 DATAF716005E E1E519EB E1ED5380 A2EDB 

82A F8F70600 4E235E23, 35107 

10220 DATA56EBED5B 78A2EDB0 3A7FA23C 327FA 

2C9 3AF8F73D 202721B5, 36634 

10230 DATAA211800E 013000CD 5C0011E5 A2210 

000 1AFE00C8 4F060013, 20161 

10240 DATA1AE5C5CD 5600C1E1 0913C3B4' A43D2 

02B F5E5D5C5 219BA211 , 38717 

10250 DATA8E02011A 00CD5C00 21A80201 A0003 

E20 CD560021 49030127,15911 

10260 DATA003E20CD 5600C1D1 E1F1C93D 20182 

1D6 000609C5 E5011900, 26167 

10270 DATA3E20CD56 00E1C111 28001910 EEC93 

D20 40CD9F00 FE1E2019, 27213 

10280 DATA217EA23A 7FA2BE28 F07E3C77 2BD60 

777 2BD60777 CD24A418 , 31873 

10290 DATAE0FE1F20 18217CA2 3E01BE28 D47E3 

D77 23C60777 23C60777, 28692 

10300 DATACD24A418 C4CD98A3 C93D2028 2A78A 

216 005EE519 E5E52A80, 34130 

10310 DATAA2E5A7ED 522280A2 E1C1A7ED 42E5C 

103 E1D1EDB0 3A7FA23D, 45330 

10320 DATA327FA2C9 3D202A21 F0FB22FA F3E52 

A7A A206004E E10922F8, 35719 

10330 DATAF3AFB9C8 2A7AA223 11F0FB41 7EFED 

020 023E0D12 231310F4, 28358 

10340 DATAC93D2017 CD6C00CD 3E00CDCF 00219 

AF3 060A365A 23364723,23285 

10350 DATA10F8C93D 200D2183 A2118A00 01150 

0CD 5C00C93D 2007CDA8, 25785 

10360 DATA00CD98A3 C9C90B20 20202020 20202 

020 200B1817 17171717,10990 

10370 DATA17171719 0B16494E 464F4D45 4E551 

60B 16202020 62792020,15787 

10380 DATA20160B16 43572E4A 41474552 160B1 

A17 17171717 1717171B, 10072 

10390 DATA0B202020 20202020 20202013 20202 

020 20202020 20202020,9423 

10400 DATA20000000 00000B20 20202020 20202 

020 200B1817 17171717,7293 

10410 DATA17171719 0B162028 63292038 38201 

60B 164D5358 2D676964, 18099 

10420 DATA73160B1A 17171717 17171717 1B0B2 

020 20202020 20202020,8605 

10430 DATA0B202020 20202020 20202000 0^000 
000 00000000 00000000,2091 
10440 DATA"M§" 
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RICH MAN, POOR MAN 

Een eenvoudig behendigheidsspel voor MSH2 



10 * RICH MAN, POOR MAN 

20 1 MSX-2 

30 ' Door: Roe ls Guy 

40 9 (c) 1988 MSX Gids Lelystad 

90 » 

100 1 SCHERM OPSTELLING 

110 ■ 

120 ON STOP GOSÜB2240:STOP ON 
130 0PEN"GRP:"AS#1 

140 PS="T200L6O4DR50FR50FR50FR50EDECR60CED 
R60O3ABO4DC" 

150 R$=" C12E3U2E3U2E3U4E2U3E5F3R3F3R4E3R2E 

2R4F6E5R4D6R8D2R5U2R8E3F3E3F3E3F3E3R10R10E 

2R2E2R2F2R2F2R1D1R4F3R3E1R3E1R3E1R10U2R10Ü 

2R10F5R3E5E2F2E2F2R4U3R3D3E2D1E2D1R3Ü1F3U1 

F3R3U3F4R6F4R3F2R5F4D2F2D8" 

160 ' MANNETJE 

170 SCREEN5:SETPAGE0,0:COLOR5, 1, 1:CLS:SETP 
AGE0, 1: C0L0R15, 10, 12: CLS 

180 DRAW"BM195,48A0C4D5NF5G2DD3C2 BM195,50 
F2G2 BM-0,-2H2C4 BM50, 20D5ND5Q3F2 BK+l.-SC 
2U4NF3D1G2H2" 

190 DRAV"BM150,50C4D6NG5F2D3C2 BM150,55U3N 
G2R2C4 BM50, 100D5ND5R1F3G2 BH-1, -5C2Ü4NG3D 
1F2E2" 

200 DIM B(50),C(50),D(50),E(50) 
210 COPY (186, 48)- (205, 58) , ITO B 
220 COPY (41 ,20)- (60 ,30), ITO C 
230 COPY(140, 50)- (159, 60) , ITO D 
240 COPY (40 , 100 ) - (59 ,110), ITO E 
250 CLS 

260 LINE(17, 161)-(52, 178) , 3, BF: LI NE (56, 163 
)-(90, 177), 7, BF 

270 DRAVBM25, 170C15NR2NL2D3L5U7R5D2 BM29, 
173U7R4D7L4 BM37, 173NR4U7 BM44, 173Ü7R2F1D5 
G1L2" 

280 DRAVBM55, 160C6D18R36U18C10L36D1C6D17 
BM62, 175C4Ü6NR4Ü4R4D10 BM73, 173D2L4Ü10R4D2 

BM76, 175Ü10 BM80, 175U10R3F1D8G1L3" 
290 DRAVBM0, 160C6R15D20R80Ü20R15D20R129U2 
0R15D32L255Ü31 BM111 , 160C4R127D1L127D1R127 

30® DRA¥"BM0,31;"+R$ 

310 PAINT(128, 185),6,6:PAUfT(128, 1), 12, 12 
320 DRA¥"BM110, 128C6R145U32L18D20L111U20L1 
5D32 BM127, 96C4R109D1L109D1R109" 
330 PAINTC175, 120), 6, 6 

340 DRA¥"BM95, 64C6R145U32L15D20L115Ü20L25D 
10R10D22 BM111,32C4R113D1L113D1R113" 
350 PAIITTC180,55),6,6 

360 DRAW" BM255 , 164; A2"+R$: PAIFT <128, 211) , 1 

2 12:DRA¥"A0•" 

370 FOR A=32*TO 160STBP45 

380 LIÏTE(B, A)- <B+4, A+15) , 6, BF 

390 NEXT A 

400 IF B=85 AKD A> 120THEH420 
410 B=85:GOTO370 
420 B=95:FOR A=96TO160STEP10 
430 LIÏTE<B,A)-<B+15,A+10),6,B 
440 NEXT 

450 B=240:FORA=32TO102STEP10 

460 IF AO102THES430 

470 FORA=64T0255STEP64 

480 CIRCLE<A,203),22,7, , , .37 

490 PAIFT (A, 203) , 10, 7 

500 NEXT 

510 SETPAGE0 , 0 

520 DRAW* BM255, 164 A2"+R$: DRA¥"BM0, 31 A0*' + 
R$ 

530 PAINT<0,0),12,12:PAINT(0,211),12,12:DR 
A¥"A0;" 



540 GOSUB1860 

550 LV=4:GOLD=l:G=116:H=218: 1=160: ¥=Q: L=23 

0 : M= 148 : B=0 : VV=0 : CC=0 : V=0 

560 FORBB=0TO16: FORA=0TO212STEP16 

570 COPY<0, A+BB)- (256, A+BB) , 1TO<0, A+BB) , 0 

580 NEXT : NEXT 

590 PSET(114,200) , 10:COLOR4, 10: PRIÏT#1, A$ 
600 PSET(181,200), 10:COLOR4, 10:PRIFT#1,4 
610 GOSUB1690 

620 PLAY"S1M10000"+P$,"R64S8M10000"+P$ 
630 IFPLAY(0)THEN630 
640 ' 

650 1 HOOFDPROGRAMMA 

660 ' 

670 FORF=G TO H+l STEP GG 

680 IF L=114AND M>140THEN GOSÜB1740: M=148: 

L=102:P=0:GQTO940 

690 IF L=218AND M<86 THEN GOSUB1740: M=84 : 

L=247:P=0:GOTO940 

700 IF L-C102A5D M=84THEN L=102 

710 IF L<85 THEN 1070 

720 LINE<F, I)-(F+¥, 1+2), 10, BF 

730 J=STICK(0)ORSTICK(1) 

740 IF D230AND J=3THEN850 

750 IF J=7THEN L=L-4 ELSE IF J=3 THEN L=L+ 

4 : GOTO790 

760 N=N+1: IF N=2THEN780 

770 COPY D,0 TO(L,M):GOTO820 

780 N=0:COPY C,0 TO(L, M) : GOTO820 

790 N=N+1:IF N=2THEN810 

800 COPY D,0 TO(L,M):GOTO820 

810 1=0: COPY E,0 TO(L,M) 

820 PLAY"V9S1M40L64O3G" 

830 IF P=1THEN850 

840 IF POINT(L+S,M+13)=10THENGOSUB1740:GOT 
01400 

850 LI HE (F, I )- (F+¥, 1+2) , 4, BF 
860 IF F+3>H THEN F=G 
870 IF P=1THEN900 

880 IFSTRIG (0 ) =- 10RSTRIG ( 1 ) =- 1THEH890ELSE 
NEXT 

890 P=1:GQSUB1?40:M=M-4:NEXT 
900 P=0 : GOSUB1740 : M=M+4 : SEXT 
910 ' 

920 ' VOLGENDE LEVEL? 

930 ' 

940 M=M+10 

950 DRAW" C6BM" +STR$ (L-7 ) +" , " +STRS <M-2 ) +" Rl 
5D10ND3L15U10" : M=M-10 

960 IF M=88 THEN H=216: 1=96: M=84: G=125: ¥=Y 

: CC=CC+100: GOSUB1690: GOTO670 

970 IF M=24 THEN H=218: 1=32: M=20: G=116: L=2 

20: ¥=QQ: CC=CC+100: GOSUB1690: GOTO670 

980 V=V+1:IF V=2 THEN1000 

990 DRA¥" C6BM" +STRS (L)+" , " +STR$ (M) +" D2C2ND 
4L2U4D4R4D2 BM-3, +2C6L1D2U2R3D5" : GQTO1010 
1000 V=0 : DRA¥" BM" +STRS (L ) +" , " +STR$ (M) +" C6D 
2C2ND4R2U4D4L4D2 BM+3, +2C6R1D2U2L3D5" 
1010 PLAY"S4M100T255L64O2A" : FORDD=0TO350 : N 
EXT 

1020 LISE(L-3,M-2)-(L+8,M+ll>, 10,BF 
1030 GOTO950 
1040 ' 

1050 ' PLATFORM 3 BEREIKT — 

1060 1 

1070 IF MO20THEN GOSÜB1740: GOTO1420 ELSE 
A=39: B=2: CC=CC+100: GOSÜB1690 
1080 FOR F=5T075+Q1 STEP FF 
1090 IF F=>75+Q1 THEN F=5 

1100 L I NE (F , A ) - (F+ 10 , A+2 ) , 4 , BF : FORPA= 1T0PP 
: NEXT 

1110 S0UND6, 7: S0UND7 , &B000 1000 : S0UND9 , F/7+ 
2 

1120 IF V>0THEIT1150 

1130 IF STRIG(0)=-1OR STRIG(1)=-1THEN1140E 
LSEPP=25:GOTO1190 
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1140 GOSÜB1740:L=L-20:PP=1 

1150 V=V+1:GOSUB1740 

1160 M=M+4:C0PY B, 0 TO(L,M) 

1170 IF V=B AND POINT(L+10,M+12)= 4 THE» C 

C=CC+50: GOSUB1690: GOTO1200 

1180 IF V=B AKD POINT(L+10,M+12)<>4 THEN12 

50 

1190 LINE(F,A)-(F+10,A+2), 10,BF:NEXT 

1200 IF M>108THEN FOK A=0TO1000: NEXT: K=0: G 

OTO1260 

1210 V=0:B=11: A=A+44: GOTO1080 
1220 ' 

1230 ' MAN SCHIJF GEMIST 

1240 ' 

1250 IF L=64THEIf K=0ELSE IF L=44THEN K=1EL 

SE IF L<40THEN K=4 

1260 LINE(L,M)-(L+19,M+10>, 10, BF 

1270 SOUND0 , M/2 : SOUND1 , 0 : SOUND8 , 10 

1280 L=L+K:M=M+4:C0PY B,0 TO <L,M) 

1290 IF M> 150 AND L<40THEN1500 

1300 IF M>150THEN1310ELSE1260 

1310 GOSÜB1740 

1320 IFPLAY(0)THEN1320 

1330 CIRCLE(80, 140) ,4,4: PLAY"S1M2215L604A ,, 
:CIRCLE(80, 140), 4, 10 
1340 C0L0R=(7,7,7,7) 

1350 CIRCLE<70, 150) , 4, 4: PLAY'»T25503G" : CIRC 

LE<70, 150) ,4, 10 

1360 PLAY"S11M20O8L1E" 

1370 IFPLAY(0)THEN1370ELSECOLOR=<7, 2, 6, 7) : 

GOTO1420 

1380 GOSIJB1740 

1390 ' LEVEN MINDER 

1400 LINEQ12, 160)- (244, 162), 4, BF 

1410 F0RPA=1TÖ2: PLAY"S10M30O2L64AS14M50A" : 

NEXT 

1420 LV=LV-1 

1430 IF LV=0THEN GOTO1510 

1440 PSET (181 , 200 ) , 10 : COLOR4 , 10 : PR INT#1 , LV 
•1450 L=230: M=148: 1=160: W=Q: G=116: V=0 
1460 GOTO670 
1470 ' 

1480 • EINDE GAME 

1490 * 

1500 BEEP: GOLD=2 

1510 FORPA=58T0132 

1520 LINE(60,PA)-(195,PA),4,B 

1530 NEXT 

1540 BEEP : PLAY "S14M340"+P$, "R64S14M350"+P 

$ 

1550 IF G0LD=1THEN H0=96: VE=61: T$="POOR MA 
N":COLOR15,4:GOSUB2190 ELSE H0=96: VE=61: T$ 
="RICH MAN":COLOR15,4:GOSUB2190 
1560 HO=86:VE=74:T$="GAME OVER" : GOSUB2 190 
1570 FORPA=1TO1000: NEXT: IF CC<HI THEN1580Ë 
LSE HI=CC*GOLD:GOSUB1690 

1580 PSET (6 1 , 83 ) , 4 : C0L0R15 ,4: PRINT#1, "High 

fSGOTQ—** * Hl 

1590 IF GOLD=2THEN HO=85: VE=98: T$=" denkt u 
dat":GOSÜB2190:HO=70:VE=110:TS="jij het o 
pnieuw" : GOSUB2190: HO=85: VE=120: T$="kan (J/ 
N) ?" : G0SÜB2 190 : PLAY" S8M10000" +P$ , " S14M100 
0"+P$ 

1600 IFPLAY(0)THEN1600 

1610 IF G0LD=1THEN FORPA=1TO2000: NEXT: GOSU 
B1790:GOTO540 

1620 I$=INKEY$: IFI$=""THEN1620 

1630 IF I$="J"OR I$="j"THEN GOSÜB1790: GOTO 

550 

1640 IF I$="N"OR I$="n"THEN GOSUB1790: GOSU 
B2240 

1650 GOTO1620 
1660 ' 

1670 ' SCORE 

1680 ' 



1690 PSET (50 , 200 ) , 10 : C0L0R4 , 10 : PR I NT#1 , US I 
NG" ####" ; CC 
1700 RETURN 
1710 ' 

1720 ' PLATFORM OPENING 

1730 * 

1740 LINE(L,M)-(L+19,M+10), 10,BF 
1750 RETURN 
1760 ' 

1770 ' VIS SCHERM 

1780 ' 

1790 FORBB=0TO16: FORAA=0TO212STEP16 
1800 LINE(0, AA+BB)- (256, AA+BB) , 1 
1810 NEXT: NEXT 
1820 RETURN 
1830 ' 

1840 ' KEUZE 

1850 ' 

1860 T$="RICH MAN POOR MAN" : H0=54 : VE=20 : CO 
L0R15, 1.-GOSUB2190 

1870 T$="written by Roe ls Guy" : HO=40: VE=40 
: GOSUB2190 

1880 T$=" moei 1 i j khe idsgraad" : HO=50 : VE=70 : G 
OSUB2190 

1890 T$=" - 1 - EASY ": VE=90 : GOSUB2 1 
90 

1900 T$=" - 2 - HARD " : VE=100 : G0SUB2 
190 

1910 T$=" - 3 - PROF ":VE=110:GOSÜB2 
190 

1920 I$=INKEY$:IF I$=""THEN1920 

1930 IF ASC(I$X48ORASC(I$)>52THEN1920 

1940 A=VAL(I$) 

1950 IF A=1THEN A$="EASY" : FF=5 : Q=9 :QQ=12 
:Y=12:GG=5 : Q1=0 

1960 IF A=2THEN A$="HARD" : FF=5 :Q=11:QQ=15 
: Y=8 :GG=10:Q1=0 

1970 IF A=3THEN A$="PROF" : FF=10: Q=15: QQ=20 
: Y=10:GG=10:Q1=10 
1980 COLOR=NE¥ 

1990 T$="scherm instellingen" : HO=50: VE=70: 
GOSUB2190 

2000 T$=" - 1 - GEEL ": VE=90:GOSUB2 
190 

2010 T$=" -2- ZWART " : VE=100: GOSUB 
2190 

2020 T$=" -3- PASTE L" : VE= 110: GOSUB 
2190 

2030 I$=INKEY$:IF I$=""THEN2030 

2040 IF ASC(I$X48ORASC(I$)>52THEN2030 

2050 A=VAL(I$) 

2060 IF A=l THEN COLOR=NEW 

2070 IF A=2 THEN COLOR= (10, 0, 0, 0) : COLOR= (1 

2,0,7,0):COLOR=(4,3,2,7) 

2080 IF A=3 THEN COLOR= (10, 7, 6, 5) : COLOR= (1 
2,6,3, 1):COLOR=(2,5,6,3):COLOR=(4,7,0,7):C 
0L0R=(6,7, 1,3) 

2090 T$="Maak gebruik van de" : HO=50: VE=70: 
GOSÜB2190 

2100 T$=" joystick of cursors" : HO=50: VE=80: 
GOSUB2190 

2110 T$=" en druk op de " : HO=50: VE=90: 
GOSUB2190 

2120 T$="vuurknop of spaciebalk" : H0=36: VE= 
100:GOSÜB2190 

2130 T$=" om te springen! " : HO=50: VE=110 
:GOSUB2190 

2140 I$=INKEY$:IF I$=""THEN2140 
2150 - BEEP: RETURN 
2160 ' 

2170 ' TEXT GRAPH 

2180 ' 

2190 DRAW"BM=HO; , =VE; " : PRINT#1 , T$ 
2200 RETURN 
2210 ' 



27 



2220 • STOP 

2230 • 

2240 SCREEN0 : COLOR3, 1,1: CLS: LIST10-80 
2250 RETURN 
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GOSUB 1120: • intro 



10 » 

20 •* STERRENREGEN * 

30 1 * Spelprogramma voor MSX 1/2 * 

40 # * Door: G. V. J. v. d. Pol. * 

50 '* (c) 1988 MSX Gids * 

60 1 * Lelystad * 

70 1 ****************************** 
80 
90 

100 ' 

110 ' *** Initialisatie *** 
120 ' 

130 SCREEN 1,0,0:CQLOR 9,1,5 
140 VIDTH 32: CLS 

150 CLEAR 800 , &HBEFF : DEF I NT A-Z:CK=0 

160 ON INTERVAL=50 GOSUB 690 

170 YPOKE 45,56:VP0KE 46,16 

180 VPOKE 187,0: VPOKE 8192,161 

190 FOR 1=8196 TO 8207 

200 VPOKE 1,252: NEXT 

210 PRINT STRING$(32,32); 

220 PRINT STRING$(32,32); 

230 FOR 1=0 TO 7: RE AD A 

240 VPOKE 14336+1, A: NEXT 

250 DATA 24,90,255,255,24,24,60,24 

260 DEFUSR0=&HBF00 

270 DEFUSR1=&HBF0D 

280 DEFÜSR2 = &HBF 1 D 

290 FOR I=4HBF0» TO &HBF31 

300 READ A$:POKE I, VAL <»&H"+A$> : NEXT 

310 FOR I=&HBF3F TO &HBF60 

320 POKE 1,23: NEXT: POKE &HC201,23 

330 R=USR2(0) 

340 LOCATE 17, 0: PR INT" STERRENREGEN. 
350 LOCATE 17, 1: PRINT"Hax- score: " ; CM 
360 LOCATE 1,0: PR INT" Time: 00" 
LOCATE 1,1: PR INT" Score: 00" 
A$="T120S1M255V10" : PLAY"XA$; 
C=0 : F=0 : T=0 : U=0 : X= 16 : Y= 18 
400 PUTSPRITE0, (X*8,Y*8>,15,0 
410 ' 

'*** Haofdlus *** 

IFU=24THEffGOSUB1030 
IFIK24THEÏÏ550 

IFSTICK(D) =3THBIfX=X+ 1 : I FX>3 1THESX=3 1 
I FSTICK (D) =7THEÏTX=X- 1 : I FX<0THENX=0 
IFST ICK (D) =1THENY=Y-1 : IFY<5THEFÏ=5 
IFST ICK (D)=5THEÏY=Y+1: IFY>22THENY=22 
500 PUTSPRITE0, (X#8, Y#8) , 15, 0 
510 G=6144+32*Y+X 

520 I FVPEEK <G ) = 15THE1ÏC=C+ 1 : VPOKEG , 5 : PLAY" 0 
5C32 

530 IFVPEEK<G)=2THESC=C+5: VPOKEG, 1: PLAY" 04 
C32 

540 L0CATE8, 1: PRIITUSIIG"###" ; C 
550 R=USR<0):R=USR1(0):Ü=Ü+1 
560 LOCATE0,2: IFUMOD3O0THEÏ: PRINT: GOTO440 
570 B=RND<1>*8:GOSUB630 
B=RïfD(l)*8+8: GOSUB630 
B=R8D < 1 > *8+16 : GOSUB630 
600 B=RWD<1)X8+24:GOSUB630 
610 GOTO 440 
620 ' 

630 IFUMOD31=0THE5650 
640 L0CATEB,2:PRIirT"«":RETURH 
650 LOCATEB , 2 : PR I BT" ®" : RETURS 
660 * 

670 Subroutine time interv. *** 

680 » 

690 IFF=0THEF730 

700 T=TIKE\50 

710 VPOKE6153,T\10+48 

720 VPOKE6154,TMOD10+48 

730 IFT=>60THEÏ820 



370 
380 
390 



420 
430 
440 
450 
460 
470 
480 
490 



580 
590 
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740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 



I FTMOD3O0THENRETURN 
Q=Q+1:R=QM0D4: IFR=3THENR=1 
S=63+R 

P0KE&HBF31.S 
RETURN 

i 

% %%% Einde spel *** 
i 

INTERVALOFF 

PUTSPRITE0, (128,72), 15,0 
PLAY"Q5L8CFCFF 
A$=CHR$(VPEEK<6184) ) 
B$=CHR$ ( VPEEK <6 1 85 ) ) 
C$=CHR$(VPEEK<6186>> 
CC=VAL(A$+B$+C$) 
IF CC<CM THEIf 910 
LOCATE27, 1: PRIÏTCC; : CM=CC 
L0CATE13, 16: PRINT" 
LOCATE13, 17: PRINT" EINDE 
L0CATE13, 18: PRINT" 
L0CATE3, 20: PRINT STRING$ (26, 32) 
LOCATE3, 21: PRINT" ESC is opnieuw. 

11 . 

L0CATE3, 22: PRINT STRINGS (26, 32) ; 
I$=INKEY$: IF I$=""THEN 970 
IF ASC(I$)<>27 THEN 970 ELSE 



330 



*** Aut om. stick- keuze *** 



910 
920 
930 
940 
950 

960 
970 
980 
1000 
1010 
1020 
1030 

1040 

1050 
1060 
1070 
1080 
1090 

1100 

1110 • 

1120 SCREEN 0:COLOR 1, 10, 10: VIDTH 37:CLS:K 
EY OFF 

1130 PRINTSTRING$(37,42); 
1 1 40 PR I NT" *" STR I NG$ (35 , 32 ) " *" ; 
1150 PRINT"* STERRENREGEN. 
*"; 

PR I NT" *" STR I NG$ (35 , 32 ) " *" ; 
PRINT"* Bij dit spel beweegt U zich 
** een jager tussen vallende sterren 



L0CATE13, 22: PRINT" START "; 
IFSTICK(0)THEND=0: GOTO1080 
IFSTICK(l) THEND= 1 : GOTO1080 
IFSTICK(2)THEND=2: GOTO1080 
GOTO1030 

INTERVAL ON : F= 1 : T I ME=0 : RETURN 

1 

' *#* Introductie *** 



1160 
1170 
met 
* M ; 
1180 
naar 



PRINT"* Ook komen er soms wat manen 
** beneden, U moet binnen een minuut 



** proberen om er zoveel mogelijk te va 



ngen 
1190 
een 
*"; 
1200 
1210 
naar 



PRINT"* 
** maan 



Een ster 
5 punten. 



levert 1 



punt 



op en 



PRINT" * H STRI!iFG$ (35, 32) n *"; 
PRINT"* De jager kunt ü besturen met 
** keuze de cursortoetsen of een jay 
** st ick. * M * 

1220 PRINT"* GOEDE VANGST! 

*"; 

PR I NT" *" STR I NG$ (35 , 32 ) " *" ; 
PRINT STRING$(37,42) 

L0CATE6,22:PRINT"DRUK NU DE SPATIEBAL 



1230 
1240 
1250 
K IN 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 



FOR 1-0 TO 50.-NEXT 
L0CATE17, 22: PRINT" 
FOR 1=0 TO 50:NEXT 
IF STRIG(0)=0 THEN 
RETURN 



1250 



*** Kach.taal data *** 



DATA 21,40, 18: 
DATA 01.A0.02: 



'LD HL.&H1840 
'LD BC&H02A0 



1360 
1370 
1380 
1390 

1400 

1410 
1420 
1430 
1440 
1450 
1460 
L470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



11,60,BF: 
CD, 59, 00: 
C9 : 
3A,31,BF: 
6F : 
26, BF 
01,C0,02: 
11,40, 18: 
CD, 50, 00: 
C9 : 
21,3F,18: 
0E.04 : 
06, B0 
23 : 
3E, 17 : 
CD, 4D.00: 
05 : 
20, F7 : 
0D s 
20, F4 : 
C9 : 
3F : 



'LD DE, &HBF60 
'CALL LDIRMV 
'RET 

'LD A, (BF31) 
'LD L,A 
'LD H, BF 
'LD BC.&H02C0 
'LD DE.&H1840 
'CALL LDIRVM 
•RET 

•LD HL.&H183F 
•LD C.&H04 
'LD B.&HB0 
• INC HL 
i ld A 17 
'CALL'&H004D 
'DEC B 
•JRNZ F7 
'DEC C 
'JRNZ F4 
' RET 

'VARIABELE 
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LEER, PROBEER EN 
PROGRAMMEER 



DggI ÏO: Sequen-bïele 
bestandsorganisatie 

Als u dacht dat u in november en de 
feestmaand december niets meer op uw 
MSH te leren zou hebben, heeft u het mis: 
dit 10e deel (jubileum!) van de kursus pro- 
grammeren neemt u opnieuw mee in de we- 
reld van de input en output van bestan- 
den. 

— Eer*s-fc even typen — 

Ik begin dit deel met een voorbeeld, dat 
alleen geschikt is voor MSH computers met 
een DISKDRIVE. Cassettegebruikers moeten 
het dus even zonder een ingetypte listing 
doen, maar kunnen toch ook veel opsteken 
van het verklarende verhaal dat na het 
programma volgt. 

Zoals u ziet is dit programma gedeeltelijk 
een herhaling van datgene wat in het vori- 
ge deel stond. Er waren echter teveel ver- 
anderingen om met het afdrukken van al- 
leen de nieuwe routines te kunnen vol- 
staan. 

100 • ++++++++++++++++++++++++++++++ 

110 '+-H-++ Ledenadministratie +++++ 

120 ! +++++ voor +++++ 

130 1 +++++ MSX-computers met +++++ 

140 *+++++ diskdrive +++++ 

150 ■ ++++++++++++++++++++++++++++++ 
160 Demo sequentiële +++++ 

170 '+++++ file organisatie +++++ 

180 ' ++++++++++++++++++++++++++++++ 

190 * 

1000 ' +++++++++++++++++++++++++ 

1010 Initialisatie +++++ 

1020 * ++++++++++++-H-+++++++-H-++ 

1030 ' 

1040 BEEP 

1050 KEY OFF 

1060 MAXFILES=4 

1070 DEFSTR N,A,V 

1080 OPEN "GKP: M FOR OUTPUT AS #1 

1090 C0L0R 1,7, 7: SCREEN 2:CLS 

1100 LINE <20,10)-<235,26) ,1 , BF 

1110 LINE (24, 14)-(239,30) ,13,BF 



meerkursus deel 10" 

1200 PRESET (44,51) 

ministratie MSX" 

1210 PRESET (44,80) 

atie bestand*' 

1220 PRESET (44,96) 

play leden" 

1230 PRESET (44,1121 

voegen leden" 

1240 PRESET (44, 128: 

wijder leden" 

1250 PRESET (44,144': 

de programma" 

1260 I$=INKEY$; «F < 

$)>9 ) GOTO 1260 



,B 




,BF 




,BF 




,B 




> BF 




i BF 




,B 




#1, 


" Program 


#1, 


"Ledenad 


#1, 


"1) Kre 


#1, 


"2) Dis 


#1, 


"3) Toe 


#1, 


"4) Ver 


#1, 


"9) Ein 


) OR ( VALU 



1270 ON VAL(I$) GOTO 1280, 1290, 1300, 1310, 1 
260, 1260, 1260, 1260, 1320 

1280 LINE (76,89)- (192,89) ,1:G0SUB 2000 
IF ( XS="N" ) GOTO 1260 ELSE GOTO 1090 
1290 LINE (76, 105)- (192, 105), 1: GOSUB 3000 
GOTO 1090 

1300 LINE (76, 121)- (192, 121), 1:G0SUB 4000 
GOTO 1090 

1310 LINE (76,137)-(192,137),1:G0SUB 7000 

GOTO 1090 

1320 CLOSE 

1330 KEY ON 

1340 END 

1350 1 

2000 ' +++++++++++++++++++++++++++ 
2010 '+++++ Kreatie bestand +++++ 
2020 ' +++++++++++++++++++++++++++ 
2030 » 

2040 PRESET (200, 80), 5 : PRINT #1, " (J/N)" 
2050 X$="" 

2060 XS=INKEYS:IF ( X$<>"N" ) AND ( XSO"J 
" ) GOTO 2060 ELSE LINE (200, 80)- (236, 86) , 
5,BF:IF ( XS="N" ) THEN LINE (76, 89)- (192, 
89), 5: GOTO 2300 

2070 OPEN "A: LEDEN. DAT" FOR OUTPUT AS #2 
2080 GOSUB 9000 
2090 VLNR=0 

2100 LNR=0: N="" : A=*'" : V="" 

2110 FOR F=7 TO 13 

2120 LOCATE 11, F: PRINT SPACES (28) 

2130 NEXT 

2140 LOCATE 11,7: INPUT LNR 

2150 IF ( LNR=0 ) GOTO 2290 

2160 IF ( LNR<=VLNR ) THEN BEEP: GOTO 2140 

2170 LOCATE 11,9: INPUT N 

2180 IF ( N="" ) GOTO 2170 

2190 LOCATE 11, 11: INPUT A 

2200 IF ( A="" ) GOTO 2190 

2210 LOCATE 11, 13: INPUT V 

2220 IF ( ¥="" ) GOTO 2210 

2230 PRINT #2, LNR 

2240 PRINT #2, N 

2250 PRINT #2, A 

2260 PRINT #2, W 

2270 VLNR=LNR 

2280 GOTO 2100 

2290 CLOSE #2 

2300 RETURN 

2310 ' 

3000 ' +++++++++++++++++++++++++ 
3010 ' +++++ Display leden +++++ 
3020 ' +++++++++++++++++++++++++ 
3030 ' 

3040 OPEN "A: LEDEN. DAT" FOR INPUT AS #2 

3050 GOSUB 9000 

3060 IF ( EOF (2) ) THEN 3190 

3070 FOR F=7 TO 13 

3080 LOCATE 11, F: PRINT SPACES (28) 

3090 NEXT 

3100 INPUT #2, LNR 

3110 INPUT #2, N 

3120 INPUT #2, A 

3130 INPUT #2, V 

3140 LOCATE 10,7 : PR I NT LNR 

3150 LOCATE 11,9 : PRINT N 

3160 LOCATE 11, 11: PRINT A 

3170 LOCATE 11, 13: PRINT V 

3180 XS=INKEY$:IF ( X$OCHR$(13) ) THEN I 

F ( XS=CHRS(27) ) THEN 3220 ELSE 3180 ELS 

E 3060 

3190 BEEP : LOCATE 11,19 

3200 PRINT "Einde bestand bereikt " 

3210 FOR F=l TO 1000: NEXT 

3220 CLOSE #2 

3230 RETURN 

3240 GOSUB 9040 
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3250 ' 

400® • +++ ++++++++++++++++++++ + + ++ 
4010 ' +++++ Toevae S e ^ + ^®^ + ^^ 

4*04® OPEN "A: LEDEN. MUT" FOR OUTPUT AS #3 
4050 GOSUB 9000 
4060 VLNR=0 

4070 LNR=0:N="":A="":V="" 
4080 FOR F=7 TO 13 
4090 LOCATE 11,F:PRINT SPACE$(28) 

4100 SEXT 

4110 LOCATE 11,7: INPUT LNR 
4120 IF ( LNR=0 ) GOTO 4260 
4130 IF < LNR<=VLNR > THEN BEEP : GOTO 4110 
4140 LOCATE 11,9: INPUT N 
4150 IF ( N="" > GOTO 4140 
4160 LOCATE 11,11: INPUT A 
4170 IF ( A="" ) GOTO 4160 
4180 LOCATE 11,13: INPUT V 
4190 IF ( W="" ) GOTO 4180 
4200 PRINT #3, LNR 
4210 PRINT #3, I 
4220 PRINT #3, A 
4230 PRINT #3, ¥ 
4240 VLNR=LNR 
4250 GOTO 4070 
4260 CLOSE #3 

4270 IF ( VLNR=0 > GOTO 4460 
4280 FOR F=7 TO 13 STEP 2 
4290 LOCATE 3, F: PRINT SPC(36) 
4300 NEXT 
4310 LOCATE 11,19 

4320 PRINT "Verwerken toevoegingen 
t330 NAME" A: LEDEN. DAT" AS " A: LEDEN. TUS" 
4340 OPEN "A: LEDEN. DAT" FOR OUTPUT AS #2 
tise OPEN " A: LEDEN. MUT" FOR INPUT - ** 
4360 OPEN "A: LEDEN. TUS" FOR INPUT 

\f V EOFUf ) K THEN TLNR=32768! ELSE I 

HU IF ( T tSr>«LNR ) THEN GOSUB 6050 ELSE 

4400 ü IF 5 f E0F(3> ) THEN IF < EOF(4) ) 

4430 ELSE GOSUB 5050: GOTO 4400 
4410 IF < EOF (4) ) THEN IF < EOF (3) ) 

4430 ELSE GOSUB 6050: GOTO 4410 
4420 GOTO 4390 
4430 CLOSE #2, #3, #4 
4440 KILL "A: LEDEN. TUS" 
4450 KILL "A: LEDEN. NUT" 
4460 RETURN 
4470 ' 

" ' , +++++++++ +++++++++++++++++++++ 
■ +++++ Bestaande gegevens +++++ 
-+++++ naar LEDEN. DAT +++++ 
. +++++++++ +++++++++++++++++++++ 



AS #3 
AS #4 



4370 
4380 



GOTO 
GOTO 



5000 
5010 
5020 
5030 
5040 
5050 



INPUT #4, N 
5060 INPUT #4, A 
5070 INPUT #4, V 
5080 PRINT #2, TLNR 
5090 PRINT #2, N 
5100 PRINT #2, A 

1UJ IfT NOT EOF (4) ) THEN INPUT #4, 
5130 RETURN 
5140 ' 

6000 ' +++++++++++++++++++++++ ++++ 
6010 *+++++ Nieuwe gegevens +++++ 
6020 '+++++ naar LEDEN. DAT +++++ 
6030 * ++++++++++++++++++++++++ +++ 
6040 ' 

6050 INPUT #3, N 
6060 INPUT #3, A 
6070 INPUT #3, V 



TLNR 



>+++++ Verwijder leden +++++ 
, ++++++++++ +++++++++++++++++ 



6080 PRINT #2, MLNR 
6090 PRINT #2, N 
6100 PRINT #2, A 
PRINT #2 V 
6120 IF ( TOT 1 BOF <3) ) THEN INPUT #3, MLNR 
6130 RETURN 
6140 
7000 
7010 
7020 
7030 

7040 OPEN "A: LEDEN. MUT" FOR OUTPUT AS #3 
7050 GOSUB 9000 
7060 VLNR=0 
7070 LNR=0 

7080 LOCATE 11, 7: PRINT SPACES (10) 
7090 LOCATE 11,7: INPUT LNR 
7100 IF ( LNR=0 ) GOTO 7150 
7110 IF ( LNR<=VLNR > THEN BEEP: GOTO 7090 
7120 PRINT #3, LNR 
7130 VLNR=LNR 
7140 GOTO 7070 
7150 CLOSE #3 

7160 IF ( VLNR=0 ) GOTO 7360 
7170 LOCATE 3, 7: PRINT SPC (36) 
7180 LOCATE 11,19 

7190 PRINT "Verwerken verwijdering 
7200 NAME " A: LEDEN. DAT" AS "A: LEDEN. TUS" 
7210 OPEN "A: LEDEN. DAT" FOR OUTPUT AS #2 
7220 OPEN "A: LEDEN. MUT" FOR INPUT '° * J 
7230 OPEN "A: LEDEN. TUS" FOR INPUT 

725S !F ( T Bo1(4f >*GOTO 7330 ELSE INPUT #4 

7260 5 IF ( TLNR<MLNR ) THEN GOSUB 5000: IF ( 

EOF (4) ) GOTO 7330 ELSE GOTO 7260 
7270 IF ( TLNR>MLNR ) THEN IF ( EOF (3) ) T 
HEN MLNR=32768! :GOTO 7260 ELSE INPUT #3, X 

7280 G IF°( 7 EOF(3) ) THEN MLNR=32768! ELSE I 
NPUT #3, MLNR 
7290 INPUT #4, N 
7300 INPUT #4, A 
7310 INPUT #4, ¥ 
7320 GOTO 7250 
7330 CLOSE #2, #3, #4 
7340 KILL "A: LEDEN. TUS" 
7350 KILL "A: LEDEN. MUT" 
7360 RETURN 
7390 ' 

9000 •++++++++++++++++++++++++ 
9010 '+++++ Teken scherm +++++ 
9020 '++++++++++++++++++++++++ 
9030 ' 

9040 LINE (0,0)-(256,192),7,BF 
9050 COLOR 7;7,7:CLS:SCREEN 0:VIDTH 40 
9060 PRINT "i " 



AS #3 
AS #4 



9070 PRINT "|| 
II" 

9080 PRINT " 



9090 LOCATE 3,7: PRINT "Lidnr :":IF ( VAL ( 

I$)=4 ) GOTO 9130 

9100 LOCATE 3,9: PRINT "Naam :" 

9110 LOCATE 3,11:PRINT "Adres :" 

9120 LOCATE 3, 13: PRINT "Plaats:" 

9130 LOCATE 0,18 

9140 PRINT "i ' 

," 

9150 PRINT "II 



II" 

9160 PRINT 
i ii 
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9170 LOCATE 11,1 

9180 IF < VAL(I$)=1 ) THEN PRINT "Kreatie 

bestand" : COLOR 4 
9190 IF ( VAL(I$)=2 ) THEN PRINT "Display 

leden" : COLOR 13 
9200 IF ( VAL(I$)=3 ) THEN PRINT "Toevoeg 
en leden" : COLOR 6 

9210 IF ( VAL(I$)=4 ) THEN PRINT "Verwijd 
er leden" : COLOR 1 
9220 LOCATE 11,19 

9230 IF ( VAL<I$)=2 ) THEN PRINT "[Ret3=vo 
lgend IEscl=stop" ELSE PRINT "Nummer 2> is 
stop" 

9240 RETURN 
9250 ' 

9900 1 ++++++++++++++++++++++++++++ 
9910 '+++++ Grafische tekens +++++ 
9920 1 ++++++++++++++++++++++++++++ 



9930 ' 










9940 * 


r - 


(Graph) 


+ 


(r) 


9950 ' 




(Graph) 


+ 


(~) 


9960 ' 


i = 


(Graph) 




<z) 


9970 » 


L_ — 


(Graph) 
(Graph) 


+ 


(v) 


9980 ' 


J 


-f- 


Cn) 


9990 ' 


1 = 


(Graph) 


+ 


(1) 



Save dit programma Cnet als altijd) voordat 
u het opstart. Een stroomstoring komt al- 
tijd op het verkeerde moment! 

Q000-1340D: 
Init:iailisat:ie & Menu 

De initialisatie in dit programma komt 
sterk overeen met die in het vorige deel. 
Er zijn twee funkties in het menu bijgeko- 
men, namelijk Toevoegen en Verwijderen. 
Een belangrijk verschil is dat MAHFILES 
(regel 1060) de waarde 4 krijgt. Dat is no- 
dig omdat naast het grafische scherm en 
het ledenbestand nog twee hulpbestanden 
geopend moeten kunnen worden. Zonder op- 
gave van MAHFILES kan slechts 1 bestand 
op een bepaald moment geopend zijn. 

Het onderstrepen van een gekozen funktie 
overtuigt een gebruiker ervan dat hij/zij 
een toets heeft ingedrukt. Het openen van 
de diverse bestanden vergt wat tijd, dus is 
deze onderstreping zeker op zijn plaats. 
Dit soort funkties lijkt overbodig, maar in 
de praktijk blijkt men erg onzeker met 
programma's te werken en het is dan pret- 
tig als de computer hier en daar iaat zien 
wat er op dat moment gebeurt. 

0000-3300): Kreatie 

De kreatie van het bestand houdt in dat 
eventueel eerder ingevoerde gegevens ge- 
heel verloren gaan en er een lege datafile 
wordt aangemaakt. Dat is natuurlijk een 
mogelijkheid waarbij de gebruiker zich snel 
kan vergissen: 1 keer op 1) drukken zou 
het aanmaken opstarten. Hier is nu echter 
een beveiliging ingebouwd: men moet met J 
bevestigen, dat de kreatie daadwerkelijk 
moet plaatsvinden. Met N kan men nog te- 
rug naar een andere keuze als het om een 
vergissing gaat. 

Een wijziging t.o.v. het vorige deel is te- 
vens dat er een kontrole plaatsvindt op 
het ingegeven lidnummer: de verwerking in 
dit programma kan alleen goed funktione- 
ren als de iedenrecords op volgorde van 
nummer aangeboden worden. Daarom kan 
men na het ingeven van een Iedenrecord 
slechts hoger liggende lidnummers gebrui- 
ken. Vergeet men een tussenliggend num- 
mer, dan zal dit later in de Toevoegfunktie 



rechtgezet moeten worden. In de 3 muta- 
tiefunkties, die in het programma zitten, 
komt een dergelijke kontrole voor. 

C3000-3230): Display 

Ook de display-funktie is iets uitgebreid. 
Men heeft nu de mogelijkheid om het tonen 
van de ingebrachte records vroegtijdig te 
onderbreken (bv. omdat het gezochte re- 
cord reeds gevonden is en er nog veel an- 
dere records volgen, die men niet wil zien). 
Met de escape-toets CESC) kan men ont- 
snappen uit deze routine. De werking hier- 
van ziet u in regel 3180, waar ook de EN- 
TERtoets wordt afgevraagd. In uw eigen 
programma's kunt u het beste ook een 
toets programmeren, waarmee u elke wille- 
keurige funktie kunt verlaten om naar het 
menu te gaan. Gebruik voor dit soort vaste 
funkties altijd dezelfde toets. Dat maakt 
uw programma's herkenbaar en makkelijker 
in het gebruik. 

C4000-44B0): Toevoegen 

Nieuw in dit programma is de mogelijkheid 
om na kreatie van het bestand (met even- 
tueel invoer van reeds bekende gegevens) 
later records toe te voegen met funktie 3. 
Dit uitbreiden van een sequentieel bestand 
is helaas vrij omslachtig, maar het geeft 
een goed inzicht in de manier waarop be- 
perkingen van de hardware omzeild kunnen 
worden door de software. 

Het is niet mogelijk om zonder speciale 
software voorzieningen onbeperkt aan een 
sequentieel georganiseerd bestand toe te 
voegen: op de MSK-S kunnen we met de 
OPEN APPEND C'er aan vastplakken') wel 
even uit de voeten, maar omdat dit niet in 
alle BASIC's voorkomt (er zijn immers meer 
computers dan alleen MSH) leg ik een me- 
thode uit, die in elk BASIC-dialekt zou moe- 
ten werken: het gebruik van een tussenbe- 
stand. 

We hebben reeds een bestand aangemaakt 
in de kreatiefunktie. We willen hierop kun- 
nen toevoegen met behoud van de inge- 
voerde records. We openen daartoe een be- 
stand LEDEN. MUT, waarin we voorlopig de 
toevoegingen opslaan. Dit gebeurt op de- 
zelfde wijze als in de kreatie van LE- 
DEN. DAT en behoeft dan ook geen uitleg. 
Merk op dat we de velden die ingevoerd 
zijn nu naar 4*3 schrijven in tegenstelling 
tot de kreatie, waarin #2 gebruikt wordt. 
Het mutatiebestand LEDEN. MUT is dan ook 
op #3 geopend Cregel 4040). 

Als er iets toegevoegd is (dit wordt in 
regel 4270 nog even gekontroleerd), ge- 
beurt er het volgende: 

Het 'echte' bestand LEDEN.DAT krijgt een 
nieuwe naam, namelijk LEDEN.TUS Cregel 
4330) en we maken een schone LEDEN.DAT 
aan Cregel 4340) 

De toevoegingen en de 'oude' records moe- 
ten samen in de nieuwe LEDEN.DAT voorko- 
men en beide bestanden worden dan ook 
geopend voor input: we gaan ze inlezen 
Cregel 4350- 43G0) 

Het eerste lidnummer uit het toevoegbe- 
stand wordt ingelezen Cregel 4370) 
Er wordt gekontroleerd of het oude be- 
stand al gegevens bevatte. Zo ja, dan 
halen we het eerste lidnummer binnen dat 
in dat bestand voorkomt: zo niet, dan zet- 
ten we dat lidnummer op 327G8 Cdit lijkt 
een onlogisch getal, u zult nog leren waar- 
om dit gekozen werd. Gebruik in ieder 
geval geen lidnummers die boven 32767 lig- 
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gen. Dat zou de verwerking verstoren!) * 
Er zijn 2 subroutines gemaakt: de een leest 
gegevens uit de oude data en schrijft deze 
in het nieuwe bestand Cregel 6000-6130), de 
ander doet datzelfde met het toevoegbe- 
stand. Als het lidnummer uit het toevoeg- 
bestand kleiner is dan datgene wat we uit 
de oude file ingelezen hebben, schrijven we 
de toevoeging eerst in de nieuwe file. Pas 
als het lidnummer uit de toevoegingen ho- 
ger is dan dat uit de oude file, schrijven 
we de oude gegevens in LEDEN.DAT waarna 
we het volgende lidnummer uit het betref- 
fende bestand lezen. Dit moet omdat we 
willen dat LEDEN.DAT altijd op lidnummer 
gesorteerd ligt. Om die reden moeten alle 
ingaves op lidnummer plaatsvinden en moe- 
ten ook toevoegingen en later verwijderin- 
gen op lidnummervolgorde verwerkt worden. 

Als 1 van de twee invoerbestanden geheel 
verwerkt is, wordt het andere bestand nog 
verder ingelezen en in LEDEN.DAT verwerkt 
tot ook het tweede invoerbestand aan het 
eind is (regel 4400- 4410). 

Als LEDEN.DAT geheel opnieuw gevuld is, 
worden de hulpbestanden LEDEN. MUT en 
LEDEN.TUS verwijderd met de KILL-opdracht. 
Bij volgende mutaties worden ze opnieuw 
aangemaakt. LEDEN. MUT wordt daarbij met 
output geopend en verwijderen van de oude 
LEDEN. MUT vindt dan automatisch plaats. 
Die KILL is dus min of meer overbodig, 
maar ik vind het altijd raadzaam om reeds 
verwerkte hulpbestanden direkt weg te 
gooien om de schijven niet onnodig te be- 
zetten. 

Voor de NAME-opdracht op regel 4330 is 
het echter noodzakelijk dat LEDEN.TUS niet 
voorkomt op de schijf. Is dit wel het geval, 
dan zal het programma stoppen met een 
foutboodschap. Verwijderen van LEDEN.TUS 
is dus een must. 

Het zal u misschien wat duizelen voor uw 
ogen hoe dit toevoegen nu precies in z'n 
werk gaat. Leest u het programma nog 
eens rustig een paar keer door en zet met 
voorbeelden op papier wat er in bepaalde 
situaties gebeurt. Dat geeft meer inzicht 
in de werking van het gebruik van een 
dergelijk tussenbestand. Tevens wordt het 
dan eenvoudiger om de laatste funktie in 
deze ledenadministratie te kunnen begrij- 
pen: 

C7000-7360D: Verwijderen 

Het verwijderen van leden vindt plaats 
door de lidnummers (weer in oplopende 
volgorde) in te typen van die leden, waar- 
van u weet dat ze niet meer in het be- 
stand thuishoren. Deze nummers worden in 
het bestand LEDEN. MUT opgeslagen. We 
hoeven hier dus geen naam, adres en 
woonplaats in te geven. Het zou wel handig 
zijn, als de computer ter kontrole nog even 
liet zien, welk lid we verwijderen. Dat is nu 
net het probleem met de sequentiële toe- 
gang: de computer Cof liever gezegd de 
schijf- i/o) is te traag om dergelijke infor- 
matie snel op te hoesten! We moeten het 
dus maar 'op goed geluk* doen. 

Zijn er daadwerkelijk lidnummers ter ver- 
wijdering aangeboden, dan gaat de compu- 
ter een routine afhandelen Cregel 7S0D- 
7350), die in grote lijnen overeenkomt met 
de toevoegfunktie. Via het tussenbestand 
wordt een nieuwe LEDEN.DAT aangemaakt, 
die Choe kan het ook anders) nog steeds op 
lidnummer gesorteerd is. De in LEDEN. MUT 
ingevoerde nummers zullen niet meer voor- 
komen in LEDEN.DAT. 



Er zit nog een addertje onder het gras: bij 
een sequentiële file hebben we geen unieke 
sleutel, wat kortweg wil zeggen dat Cin ons 
voorbeeld) 1 lidnummer meerdere keren kan 
voorkomen. Hoewel er tijdens ingave gekon- 
troleerd wordt of het ingegeven lidnummer 
hoger is dan het vorige, is er altijd nog de 
mogelijkheid om tijdens een tweede verwer- 
king nogmaals een bestaand lidnummer te 
gebruiken, dat dan netjes toegevoegd zal 
worden! Zo kan lidnummer 1 zonder proble- 
men 10 keer ingevoerd worden C10 keer Toe- 
voegen opstarten). 



Het verwijderen is zodanig geprogrammeerd 
dat alleen het eerste lid met een bepaald 
nummer verwijderd wordt. Alle andere re- 
cords die datzelfde lidnummer bevatten 
blijven bestaan. Om de 10 'eentjes* kwijt te 
raken, zult u dan ook 10 keer de Verwij- 
der funktie moeten opstarten en telkens 
lidnummer 1 op moeten geven. Dit had an- 
ders geprogrammeerd kunnen worden. Het 
is maar net welke keuze u Cin dit geval 
mij) het meest zinvol lijkt. 

— Het scher^m — 

Het tekenen van het scherm waarop in- 
voer, display en verwijderen plaatsvinden 
is nauwelijks veranderd ten opzichte van 
de vorige keer. Er zijn alleen wat voorzie- 
ningen aangebracht, die ervoor zorgen dat 
de juiste teksten onder en boven in het 
scherm verschijnen. 

Cassettegebruikers begrijpen nu waar- 
schijnlijk, waarom dit voorbeeld bij hen niet 
werkt: de MSK-computer kan maar van 1 
cassetterecorder inlezen of er naar toe 
schrijven. Het gelijktijdig lezen van muta- 
ties en schrijven daarvan in een ander be- 
stand is niet te verwezenlijken. Wel kan ik 
nog eens een voorbeeld maken, waarbij de 
verwerking geheel in het geheugen van de 
computer plaatsvindt. Op die manier kan 
ook een cassettegebruiker Cin beperkte 
mate) aan opslag van gegevens doen. Stuur 
gerust een briefkaartje als u een dergelijk 
voorbeeld op prijs stelt! 

Hopelijk kunt u zich door de wirwar van 
BA5IC-r egels heen worstelen, om het werken 
met bestanden in de vingers te krijgen. 
Als u het programma begrijpt, kunt u het 
misschien zo aanpassen, dat u uw wensen 
voor Sinterklaas er in kwijt kunt. Of de 
goedheiligman ook MSX-minded is weet ik 
niet, maar u leert er in ieder geval weer 
iets van! Prettige feestdagen toegewenst, 
veel succes met de kursus en tot ziens in 
het nieuwe jaar... 

Richard Altenburg 

Kerkpad 31 
7991 CS Dwingeloo 
i.s.m. 
Ina Stam 
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----- WOORDENLIJST PROGRAMMEREN === 
=== DEEL 10 === 



ARRAY: reeks gegevens die met DIM gespecificeerd is 
CLOSE: sluiten van een bestand 

DEFIHT: define integer» hierachter vermelde variabe- 
len Kunnen alleen gehele getallen bevatten 

DEFSTR: define 1 string* hierachter vermelde variabelen 
zijn altijd alfanumeriek? ook zonder de toevoeging * 

DEVICE IDENTIFICATION: apparaat identif ikatie om aan 
te geven of ue een diskdrive of cassetterecorder ge- 
bruiken 

DIM: dimension? reserveren geheugen voor opslag van 
reeksen gegevens (arrays) 

ELSE: onderdeel van de IF...THEN7 hierachter staat de 
aktie die ondernomen moet worden als de konditie 
achter IF niet waar is 

EOF:; kan uitgevraagd worden om te kijken of ue het 
einde van een bestand bereikt hebben 

ERASE: geeft een geheugengebied vrij dat met DIM ge- 
reserveerd uas 

I/O: invoer en uitvoer tegelijk op hetzelfde bestand 

INDEX: variabele die een element in een array (reeks) 
aanwijst (pointer) 



INPUT: invoer? inlezen van bestanden 



FILE HANDLING: bestand 
houden van bestanden 



aken en onder- 



MAXFILES: geeft aan hoeveel bestanden er op een be- 
paald moment geopend mogen zijn 

ON...60TO: voorwaardelijke 6OT0» afhankelijk van de 
waarde van een variabele 

OPEN: openen van een bestand 

OUTPUT: uitvoer? schrijven van gegevens naar bestan- 
den 

OVERFLOW AREA: een door de computer aangemaakt ge- 
bied bij een bestand waarin toevoegingen in beperkte 
mate kunnen worden opgeslagen 

P.S.6.: Programmable Sound Generator? de program- 
meerbare geluidschip 

PLAY: een statement waarmee muzieknoten eenvoudig 
kunnen worden gespeeld 

RANDOM: willekeurig? bij bestanden direkte toegang via 
unieke sleutel 

READ: toekennen van waardes aan variabelen vanuit 
DATA-regels 

RESTORE: in kombinatie met DATA-regels en READ te ge- 
bruiken om aan te geven waar de volgende READ zijn 
waardes vandaan moet halen 

SEQUENTIEEL: verwerken in volgorde waarin gegevens 
aangeboden werden 

SOUND: vullen van een register van de P.S.G. om een 
bepaald geluid te genereren 

UAL: value? geeft de getalswaarde van een als string 
aangeboden ci.ifer 



MS 



DISKETTES 



De programma's uit de MSX-Gidsen zijn ook op 
diskette verkrijgbaar; zowel op 3.5 inch (voor de 
meeste MSX computers) als op 5.25 inch - dub- 
belzijdig - voor de Spectravideo 707 drive. Dis- 
kette nr. 1 bevat de belangrijkste programma's 
van MSX-Gids 1 t/m 3. Een verzameldiskette 
dus. Diskette nr. 4 bevat alle programma's uit 
Gids nr. 4, diskette nr. 5 uit MSX-Gids nr. 5 enz. 
enz. 

De diskettes starten automatisch op en zijn ge- 
heel menugestuurd met diverse keuzemogelijk- 
heden en schermen; alles in hi-res graphics. 
D.m.v. een letter-keuze-menu (gebruik de 
HOOFDIetters!) kunnen de programma's gela- 
den of opgestart worden. Het menu bevat ook 
een overzichtsprogramma, dat geschikt is voor 
twee drives en verder zijn er nog enige informa- 
tie- en advertentiepagina's op de diskette aan- 
wezig. 



Ook zijn er cassettes leverbaar met de program- 
ma's uit de MSX-Gidsen. Op deze cassettes 
staan tevens de programma's die alleen ge- 
schikt zijn voor diskdrive en deze programma's 
moeten wel overgezet worden naar diskette en 
kunnen - uiteraard - zonder diskdrive niet ge- 
bruikt worden. De cassettes hebben - net als de 
diskettes - hetzelfde nummer als de MSX-Gids 
waarin de programma's staan en zijn verkrijg- 
baar vanaf nummer 7. 

De cassettes kosten ƒ 15,- per stuk (België Bfr. 
280) en de diskettes kosten ƒ 25 - p.st. (België 
Bfr. 470). Deze prijs is inclusief verzendkosten. 
Diskettes en cassettes besteilen door overma- 
king op giro 90951 5 t.n.v. A. Debels te Lelystad. 
Voor België kan besteld worden op rekening nr. 
235-0430464-87 bij de Generale Bank te Has- 
selt t.n.v. J. Herps, Lelystad. 



VERGEET BIJ DE BESTELLING NIET HET 
CASSETTE- OF DISKETTENUMMER EN DE 
SOORT DISKETTE (3-5/5,25) TE VERMELDEN. 



Op de cassettes en diskettes staan niet de klei- 
ne programma's die horen bij een artikel en het 
listingcontroleprogramma. 
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DANGER 
MOUSE 

IN BLACK FOREST 
CHATEAU 

: Mi cmo City 
: MSX l&E 
=»: CAS. FL. 9, 95 



Dit keer weer eens een recensie 
van een adventure* dat leuk is 
voor beginners. Qua moeilijkheids- 
graad ligt Danger Mouse op het ni- 
veau van Zoo (Radarsoft)* uaarvan 
de gevorderden zeggen? dat het 
een spel is, dat je in 1 avondje 
uitspeelt* maar waarover wij na de 
recensie in een van de vorige Gid- 
sen toch heel wat telefoontjes 
binnenkregen. 

De opdracht is vrij simpel: Danger 
Mouse is een James Bond met een 
staartje en knaagtandjes en hij 
uordt door Colonel K uitgestuurd om 
een mysterieuze "Pi-Beam" op te 
sporen? die al diverse wereldlei- 
ders krankjorum heeft gemaakt. Het 
spoor leidt naar het Black Forest 
en samen met je assistent Penfold 
uordt je daar gedropt en moet je 
proberen het kasteel binnen te 
dringen. 

Je komt terecht in een open plek in 
het bos? waar je via een keuzemenu 
diverse kanten op kunt. Bij dit spel 
hoef je zelf dus geen opdrchten in 
te< tikken; je moet er alleen voor 
zorgen? dat je de juiste keuze 
maakt. Zo liggen er ook bij de di- 
verse lokaties bepaalde voorwer- 
pen? die allemaal een eigen doel 
hebben. Met een beetje schuiven? 
puzzelen en logisch nadenken lukt 
het gegarandeerd het raadsel op 
te lossen. Ik heb er zelf 4 uur voor 
nodig gehad en er toch wel plezier 
aan beleefd. 

Grafisch doet dit spel? dat al uit 
1984 dateert enigzins denken aan 
de Level 9 adventures: eenvoudig? 
maar wel aardig. Geluid is niet 
aanwezig. Voor het spelen van 
Danger Mouse is wel een redelijke 
kennis van de Engelse taal vereist? 
want zowel de teksten als de hand- 
leiding zijn in het Engels. In de 
handleiding zijn we wel een slor- 
digheidje tegengekomen; er staat? 
dat het spel opgestart moet worden 
door CLOAD in te tikken? maar dat 
werkt dus voor geen meter. De 
juiste opdracht iss BLQAD"CAS:"*R 
en dan kan het avontuur beginnen. 

BEELD s XXX 

GELUI D ! n. v. t . 

SPELKHALI TEI T: XXX 

DOCUMENT ATI E : XXX 

PRIJS : XXXXX 




c: o 1 o ui e 1 K n P %4§% o hea d sr a 
m o u ©*J n ft :; 1 cf m p a tr t: mm Prt ^ c# 
mm€.. w"-m^ f : v e « M cl ö :« r % 

u:mmm i ~f; ö m f %€* M j s> i : tl jc €>ti t: 
t.« m t: it f H Mo r* I cl 1 ?i nri^ate s T 

a fi ^.;t'i 4 s : . :! # s :f~ §i f ::: fi E: ,.. : * m:;m mmM^M 
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TIME AND 
MAGIK 

THE TRILOGY 

: Mandari n 
Bof t ware 
MSX 1 &2 ( 64k) 
CAS. FL. 59, 50 



Aan de verpakking van deze trilogie 
van oude Level 9 adventures te 
zien* heeft deze sof tuare-ontwik- 
kelaar de verspreiding overgedra- 
gen aan een ander. Laat je niet 
misleiden door de mooie plaatjes op 
de doos* want ue hebben hier -voor 
de MSX— te maken met tekstadven- 
tures. Volgens de makers zijn ze 
wel uitgebreid met meer tekst dan 
ooit tevoren: 60.000 woorden. 

Het gaat om de volgende titels: 
Lords of Time (Tips in MSX-6ids 5)* 
Red Moon (MSX-6ids 3) en The Price 
of Magik (MSX-Gids 6). Buiten de 3 
cassettes treffen ue in de doos 



een fraai uitgevoerd boekwerkje 
aan met een beschrijving van de 3 
adventures en een soort handlei- 
ding over het spelen van Level 9 
adventures? die erom bekend staan* 
dat ze niet bepaald de gemakke- 
lijkste zijn. Het is inmiddels moge- 
lijk geworden een clue sheet aan 
te vragen door alleen een aan je- 
zelf geadresseerde enveloppe op 
te sturen met (Engelse) postzegels 
of Int. Antwoordcoupons. Een bon is 
dus niet meer nodig* zoals vroeger. 

Wat kwaliteit betreft zijn Level 9 
titels altijd een aanrader* maar 
iedereen moet voor zichzelf uitma- 
ken of hij/zij tegen een beeld- 
scherm met alleen tekst aan wil 
kijken. Persoonlijk vind ik dat to- 
taal niet aantrekkelijk. 

BEELD : n. v. t . 

GELUID : XX 

SPELKHALI TEI T: XXXXX 

DOCUMENT ATI E : XXXXX 

PRIJS : XXXX 
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AB : 


Aambeeld 


D : 


Dracula 


GS : 


Gaskamer 


EB J 


Hangbrug 


K : 


Kanon 


LB 


Luchtballon 


P 


Put 


PR 


Professor 


SK 


. Sterrenkijker 


TK 


ï T el eport eerkamer 


TL 


: Trampoline 


7 


: Voorwerp 




TIPS 

TERRAHEK 



De kaart is getekend volgens Hu Pong (Chinees-f lits- 
apparaat), d.w.z. de kamer, waar de geheime formule 
ligt» ziet er bij ieder persoon anders uit. 
Tips bij een scherm waar zich een "tong" bevindt 
eerst wachten tot tong geweest is en dan lopen. 
Route: b2 -a2 -a3 -a4 ~a5 -a6 -a5 -a4 -a3 -a2 -al 
-bi -b2 -b3 - b4 -b5 -b6 - c6 -c5 -c4 -c5 -c6 -c7 
-cS -c9 -cl© -bi0 -cl0 -c9 -c8 -c7 -c6 -b6 -b7 
-bB -b9 -a9 -al© -b!0 -c!0 -cll -dii -d!0 -dll 
-di2 -dl3 -di4 -di3 -ei3 -ei2 -ell -e!0 -e9 -d9 
-d8 -e8 -e7 -e6 -teleporteren naar f7 -f6 -f7 
-f8 -f9 -f10 -fil -f12 -fll -f10 -f9 -f8 -f7 -te- 
leporteren naar cI4 -ci3 -dl3 -el3 -f13 -f14 -f15 
-f14 -f13 (boven) -f14 -el4 -el5 -el6 -ei7 
Close ups: 

b2 : met stofzuiger omhoog 
b6 : spring in de put en klim omlaag 
c7 : scroll & swap "opgerolde brug" uit a2 
blö: om weer naar beneden te gaan: scroll & swap 
fluit (uit b4)» spring net voor monster en er komt au- 
tomatisch een trap 

b9 : luchtballon: scroll & swap blaasbalg (uit bi0) en 
spring in de luchtballon 

clls gebruik niet het kruitvat uit cll maar dat uit al 
en ga in kanon 

di@:: maak een foto van monster: scroll & swap flits- 
apparaat uit c4 en maak foto (geldt alleen voor Hu 
Pong) 

el2: de hangbrug: joystick naar links en vuurknop in- 
houden tot einde brug» anders val je in fll of f12 
d9 : de twee "tongen": wacht tot de rechtertong is 
geweest; dan snel in het midden gaan staan (net bui- 
ten het bereik van de rechtertong) 

e6 : de teleporteerkamer: leg het energiekristal (uit 
d!4) op tafeltje en spring in teleporteermachine 
f7 : spring niet per ongeluk of voor de lol in telepor- 
teermachine 

f8 : hang de klepel (uit d9) aan het einde van fS op. 
Pas op voor regendruppels 

f9 : wacht op mandje» dat je meeneemt (Als mandje 
niet komt» de klepel anders hangen) 

fll: de twee "tongen": moeilijk» gewoon afwachten en 
proberen 

f13: (bovenkant): pak de 2 latjes (uit a4)» ga voor 
aambeeld staan en zilveren kruis wordt gemaakt 
el5: Dracula verjagen met zilveren kruis 
el6: scroll & swap geheime formule (uit dl0)» 
wordt automatisch gemaakt als in c7 
e!7: professor vraagt 6 voorwerpen» geef hem deze 
en de wereld is gered: kleerhanger» batterij» kookpot» 
sinaasappel» beker en de geheime formule. 

TONSOFTWARE - HAAKSBERGEN. 



brug 



WORM IN PARADISE 



Op de ET-Rings: 

JUMP: naar het midden van de ET-Ring» SAY EXIT: naar 

het uitgangspunt 

In het Jobscentre: 

kies geen kursus» maar "klerk" 

In eigen habihome: 

SIT - SAY TV-LOOK - voor adressen en informatie 
Als de socialist wordt opgepakt» verliest hij zijn por- 
tefeuille» diens habihome levert niets op» maar breng 
de? portefeuille zo snel mogelijk naar de politie; dat 
levert 300 creds op en het recht "SAY HOME". Je 
wordt dan vanuit open areas thuisgebracht. Handig 
vlak voordat de "curfew" ingaat. 

Vraag: Hoe kom ik aan een ticket in het Reisburo en 
aan een uitnodiging voor de tempel? JOOP CAMPENS» 
AMSTELPLANTSOEN 9» 1316 GT ALMERE. 



DISK WARRIÖR 



Als je door de deur bij het beginveld komt» wat moet 
je dan doen? JEROEN HENSIN6» DE GENESTE TSTRA AT 4B» 
2321 XM LEIDEN. Tel. 071 - 312750. 



MAZE ÖF GALIOUS 
SALAMANDER 



Hoe kom ik door de muur heen in wereld 4» waar het 
heilige water zit? 

Hoe vernietig ik bij Salamander het beest met die 2 
tentakels? A.J.FIRTH, WEISSENBRUCHSTRAAT 264, 2596 
GN DEN HAAG. 

Bij Maze of Galious heb ik een raar password "gevon- 
den"» dat ik zelf bij toeval intikte. Het zorgt ervoor» 
dat je 999 munitie» 999 munten en 999 sleutels 
hebt. Tevens ben je onsterflijk en je kunt elke wereld 
in zonder de sleutel van de vorige. Hoe is het moge- 
lijk» dat in het begin wereld 1 niet open is» maar de 
demon wel verslagen en dat ik in wereld 10 GALIOUS 
niet kan oproepen? Hopelijk kan iemand mij antwoord 
geven op deze rare verschijnselen. Het password is: 
MAZE OPGA LIOU SSHR 
INES W O R L_ E> I X E MSBA 
CKWO R l_ r> 1 O^Q-T' 1 
M.J.B.ME6AS0FT» BOOMSTEDE 142, 3608 AG MAARSSEN. 

Salamander: het eerste monster kom je voorbij door te 
wachten in de hoek linksonder in het beeld. Komt hij 
naar je toe» vlieg dan naar boven, draai steeds om 
hem heen en schiet tegen zijn ogen. Het tweede mon- 
ster moet je ook in het midden raken. Op de planeet 
Eioneus heb je het meest aan de meteolaser» waarmee 
je blauwe muren kunt stukschieten. Vergeet op Lavina 
niet het sparklight en de trample missiles. Wie weet 
hoe je het monster op Lavina vernietigt? Als je in het 
begin op player 1 inschakelt» moet je plager 2 erbij 
doen. Dan kun je met 1 eerst speed» laser, 2 options 
en force shield halen en daarna maak je player 2 ge- 
woon af. NICOLAAS DE JONG, GRONINGEN. Tel. 050- 
125103. 
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ELITE 

LANDINGSINSTRUKTIES 
Als je wilt landen en je hebt nog geen D0CKIN6 COMPU- 
TER» dan moet je nu je bril opzetten en luisteren. Als 
je wilt landen moet je het SPACE STATION recht voor je 
Krijgen. Dit Kun je zien, doordat alle flappen (a) dan 
even groot zijn. Is dat niet zo, dan moet je bijsturen, 
wat erg lastig Kan zijn. Als het SPACE STATION schuin 
staat? dan worden aan 1 kant de flappen groter en 
aan de andere Kant kleiner. Je moet dan het gedeelte» 
waar ze steeds Kleiner worden, bovenaan krijgen. Dan 
ga je 90 graden omhoog» een beetje vooruit en gelijk 
weer stoppen. Dan weer 90 graden omlaag, zodat je 
het SPACE STATION weer ziet. Je moet hiermee doorgaan 
totdat het SPACE STATION (ongeveer) rechtstaat. Daar- 
na ga je met zo min mogelijk speed (dead speed) er op 
af en je gaat pas met het Space Station meedraaien 
als» je er vlakbij bent. Anders kan je schip gaan af- 
wijken. Als dit gebeurt, moet je niet gaan bijsturen, 
want dat maakt alles nog erger. Met een beetje geluk 
kun je dan door de wand van het Space Station landen. 
Al zit je in de opening, dan moet je toch nog mee- 
draaien met het Space Station, net zolang tot je ge- 
land bent. 

OEFENPROCEDURE MAN HET LANDEN 
Als je wilt oefenen met het landen, is dit een oplos- 
sing: je stijgt op net als altijd van de planeet LAVE. 
Zonder koers te veranderen, maak je afstand van het 
Space Station en je stopt. Je maakt een bocht van 180 
graden en vliegt dan op het Space Station af. Nu ga je 
verder met de landingsinstrukties, want je staat er 
recht voor. 




EASY DOING 
Als je snel een aardige uitrusting wilt binnenhalen, 
moet je gaan handelen tussen twee planeten» de ene 
met een hoge computerpri js en de andere met een 
lage (*102,45 - *62,90). Als je op deze manier een 
lange tijd doorgehandeld hebt, maak je steeds grote- 
re» winsten, (je kunt steeds meer kopen en verkopen) 
Zo scharrel je een aardig fortuin bij elkaar» waarmee 
je een behoorlijke uitrusting kunt kopen, ca. 
«13.000,=. Het is helemaal ideaal, als 1 van de 2 pla- 
neten een technical level van 11 of meer heeft. Een 
D0CKIN6 COMPUTER is een eerste vereiste. 

OPDRACHTEN 
Door de GALACIES heen zijn er opdrachten (MISSIONS) 
te vinden. Hier valt meestal veel te verdienen of je 
krijgt speciale wapens» die je helpen tot de elite te 
behoren. Tot nu toe heb ik 5 opdrachten gehad: 
OPDRACHT 1: 

Een prototype van een legerschip is gestolen. Je moet 
dit opsporen en vernietigen. Je herkent een opdracht 
aan de witte tekst, die je meteen, krijgt als je geland 
bent. Nu zul je (als je niet naar de verkeerde planeet 
gevlogen bent) verdere instrukties krijgen. Druk 
hiervoor op 7. Na een lange achtervolging komt bij 7 
te staans THERE IS A MEAN AND VISCIOUS SHIP OUT HERE. 
Als je opstijgt» word je meteen aangevallen door de 
CONSTRICTOR (het prototype). Je moet met full speed 
achter hem aan en hem met je lasers vernietigen. Dit 
levert een BOUNTY van 400 CREDITS op en na je lan- 
ding ook nog een beloning van 10.000 CREDITS van het 
leger. 



OPDRACHT 2: 

Het leger heeft de bouwtekeningen van een THARGOID 
8ATTLE SHIP in handen gekregen. Je moet deze naar de 
hoofdbasis brengen. Ze zeggen» dat je geen last van 
THAR60IDS zult hebben, maar dat heb je wel... EN HOE! 
Als beloning Krijg je een NAVAL ENERGY UNIT» die je 
SHIELDS sneller oplaadt en je laser temp. sneller laat 
draaien. 
OPDRACHT 3: 

De zon van een SPACE STATION gaat SUPERNOVA (ont- 
ploffen) en je moet de aanwezige mensen helpen ont- 
snappen. Dit Kan alleen met een INTER6ALACTIC HYPER- 
DRIVE. Als beloning krijg je 50 kg GEMSTONES (juwe- 
len). 

OPDRACHT 4; 

Eigenlijk geen opdracht: je wordt na een HYPERDRIVE 
aangevallen door de COURAG, een schip, dat onzicht- 
baar kan worden en dat ook veelvuldig doet. Het is dan 
niet op je radar te zien. Als je het met je lasers 
hebt vernietigd» krijg je een BOUNTY van 500 CREDITS. 
Ook laat het schip een CARGO CANISTER achter, waarin 
het CLOACKING DEVICE zit, dat je onzichtbaar maakt. 
OPDRACHT 5: 

Een planeet wordt aangevallen door THARGOIDS» die 
het SPACE STATION al veroverd hebben en als hoofdba- 
sis gebruiken. Je moet door de THARGOID linies heen- 
breken en «et je lasers het SPACE STATION vernieti- 
gen. Als je dit gedaan hebt en je landt op een ander 
SPACE STATION» Krijg je van het leger een ECM JAMMER. 
Hiermee kun je het ECM SYSTEM van andere schepen 
uitschakelen en kun je dus zonder problemen een ra- 
ket afvuren. 

ENERGIE VAN DE ZON 
AFTAPPEN 
Als landen niet lukt of je hebt er geen zin in» dan kun 
je FUEL van de zon aftappen. (Met een FUELSCOOP!): je 
vliegt naar de zon» bijv. met een TORUS JUMP. Niet te 
dichtbij, want dan verbrand je. Als je erg dichtbij 
komt, loopt de CT (CABIN TEMP.) op. Als deze vol is, 
verbrand je. Als je CT bijna vol is, staat er: FUEL 
SCOOP ACTIVATED. Dit geeft aan, dat je energie in- 
neemt (alarm luidt). Nu moet je uitwijken en wegvliegen 
van de zon. Vaak zal de FUEL TANK niet helemaal vol 
zijn na 1 keer, dan herhalen. 

WITCH SPACE 
Iedereen denkt natuurlijk, dat als je een INTERGA- 
LACTIC HYPERDRIVE of een HYPERDRIVE neemt, er niets 
mis kan gaan» maar niets is minder waar. Je HYPERDRI- 
VE kan stuk gaan» waardoor je in WITCH SPACE te- 
rechtkomt. Dit is een dimensie zonder sterren, waar 
alles blauw is. Hier leven de THARGOIDS, de aartsvij- 
anden der mensen. Tussen hen woedt al eeuwenlang 
een afgrijselijke oorlog. Om hieruit te Komen moet je 
een aantal THARGOIDS vernietigen. Dan staat er: DRIVE 
REPAIRED. Zoek dan je bestemming op en vertrek 

EXTRA TOETSEN 
i - IDENTIFICATION 

Als je "i" indrukt» hoor je een zachte toon. Richt je 
nu je vizier op een schip» dam komt onder in het beeld 
de naam van het schip. Als je een schip kunt identifi- 
ceren» dan kun je het ook raken. 
F5 = SPEEL INFO 

Bij indrukken van F5 (in de lucht) kun je de speeltijd 
en de score opvragen. Je moet deze toets enkele ke- 
ren indrukken» dan komt eerst de tekst en daarna de 
score en tijd (in dagen» uren en minuten), 
g ■ CLOACKING DEVICE ON 

"3" Activeert het CLOACKING DEVICE. Hierdoor wordt 
jouw schip (een COBRA MK III) onzichtbaar. Andere 
schepen schieten dan niet meer op je» maar je kunt 
er nog wel tegenop vliegen. Het CLOACKING DEVICE loopt 
op energie Van je schilden» evenals de ECM JAMMER en 
de PULSE LASER. Bij activatie staat er: CLOACKING AC- 
TIVE. 

I = ECM JAMMER ON 

De ECM JAMMER activeer je met "1" (kleine letter L) 
Hierdoor wordt het ECM SYSTEM van vijandelijke sche- 
pen gestoord. Je kunt dan probleemloos een raket af- 
vuren, zonder dat deze vernietigd wordt. 

JORDEN LENTZE» JUPTER 32, BERKEL ZH. Tel. 01891 - 
16432. 
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ABACUS 

Abacus is een programma om te leren hoe 
een getal is opgebouwd d.m.v. een veel ge- 
bruikt hulpmiddel op de basisschool. Bij 
het 'telraam' staat "h" voor honderdtallen, 
"t" voor tientallen en "e" voor eenheden. 



10 » 


##################### 


20 ' 


# # 


30 ' 


# ABACUS # 


40 ' 


# # 


50 ' 


# door Albert Vuijk # 


60 * 


# # 


70 • 


# <c>1988 MSX Gids # 


80 ' 


# # 


90 ' 


##################### 


100 


i 



110 CLEAR 300,&HAE00:DEFIETA-Z 

120 OÏSTOPGOSUB1650: STOPOF: POKE&HFBB0 , 1 

130 GOSUB970: ' machinecode vram/ram 

140 GOSÜB1130; 1 introplaatje 

150 CLS: SCREEI0:COLORl t 11,11: VIDTH37 

160 LOCATEÖ^ïPRIFr"** ABACUS **" 

170 LQCATE5,5:PRIET"door A.Vuijk Coevorde 

n" 

180 L0CATE3, 10: PR I ITT" Met di t programma kun 
je leren" 

190 L0CATE3 , 12 : PR I ET" hoe een getal in elka 
ar zit." 

200 LQCATE3, 14: PR IET" Er verschijnt een get 
al op de" 

210 L0CATE3, 16: PRUT" abacus, waarna het ju 
iste antwoord" 

220 L0CATE3, 18: PR IET" moet worden ingetikt. 

(20 sommen)" 
230 LOCATE20,22:PRIET"<TOETS>" 
240 DEFUSR2=342: U=USR2(0) 
250 K$=I5KEY$: IFK$= ,M, THEÏ250 
260 CLS: L0CATE8,3; PRINT"** ABACUS **" 
270 LÖCATE5,5:PRIET"door A.Vuijk Coevorde 
n" 

2S0 LQCATE3, 10: PR IET" Je kunt kiesen uit:" 
290 L0CATE3, 12: PRUT" 1. Getallen tot 100" 
300 L0CATE3, 14: PR IET" 2. Getallen tot 1000" 
310 L0CATE3, 16: PR IET" 3, Laten zien van get 
allen," 

320 LQCATE3,18:PRIET"4, STOPPEE" 

330 LOCATE20,22:PRIET"Kies 1, 2, 3 of 4" 

340 DEFUSR2=342 : U=USR2 (0 ) 

350 K$=IEKEY$: IFK$="" THEE350 

360 IFK$=CHR$ (49)0RK$=CHR$ (50)THEE390 

370 IFK$=CHR$(51)THEE1490 

380 IFKS-CHR$(52)THEE900ELSE350 

390 DEF I ETA-Z : SCREEE2 ,2,0: C0L0R1 , 10, 10: CLS 

400 AF=0: AG=0:K=VAL(K$) 

410 U=USR1<0) 

420 FORAK=1TO20 

430 H=RHD<-TIME/2>*llï IFH=10THEEH=0 

440 T=RÏD<TIMB)*11: IFT=10THEÏT=0 

450 E=RID<»TIKE)*11: IFE=10THEIE=0 

460 IFK-1THEEH=0 

470 I FH=0AEDT=0 ANDE=0THEE430 

480 Z$=STR$(H)+STR$(T)+STR$(E): IFH=0THEEZ$ 

=STR$(T)+STR$(E) 

490 IFH=0AIDT=0THEÏZ$=STR$<E) 

500 I FE=0THEE530ELSE I FE= 1 THEES 10ELSE520 

510 CIRCLE(160,140),8,4, , , .5: PAIET (158, 140 

) , 4: PA IET (162, 140) , 4: GOTO530 

520 FQRP=0TOE- 1 : C I RCLE ( 160 , 140- <P* 10 ) ) , 8 , 4 

, , , .5: PAIET (158, 140- (P*10) ) , 4: PAIET (162, 14 

0-(F*10)),4:EEXTP 




530 I FT=0THEE560ELSE I FT= 1THEE540ELSE550 
540 CIRCLE(128, 140), 3, 8, , , . 5: PAIET (126, 140 
) , 8: PAIET(130, 140) , 8: GOTO560 
550 FORQ=0TOT- 1 : C I RCLE (128,140-(Q*10)),8,8 
, , , .5:PAIET(126, 140- <Q*10> ) , 8: PAINTC130, 14 
0- (Q*10)),8:EEXTQ 

560 I FH=0THEE590ELSE I FH= 1 THEE570ELSE580 

570 CIRCLE(96, 140), 8, 12, , , .5:PAIET(94, 140) 

, 12: PAIET(98, 140) , 12: GÜTO590 

580 FORR=0TOH-1:CIRCLE(96, 140- <R*10> ) , 8, 12 

, , , , 5:PAIET(94, 140- (R*10) ) , 12: PAIET (98, 140 

-<R*10))> 12:EEXTR 

590 IFK-3THEE1610 

600 PRESET (64, 170) : C0L0R1 : PRIET#1 , "Het get 
al is: " : PRESET (10, 170) : PRIET#1, "som" ; AK 
610 T$="": PRESET (176, 170) 
620 PLAY"V15L16Ü3AB04C#DE" 
630 IE$=IEKEY$: IFIE$=""THEE630 
640 IFIE$=CHR$(13)THEE710 

650 IFIE$=CHR$(27)THEESCREEE0:COLOR1, 11: RE 
TURE260 

660 I F I E$=CHR$ (8 ) OR I E$=CHR$ (29 ) THEEGOSUB76 
0 

670 I F I E$ > CHR$ (47 ) AED I E$ < CHR$ (58 ) THEEGOSUB 

910ELSEGOTO630 

680 T$=T$+IE$ 

690 C0L0R1: PRESET (176, 170) : PRIET#1 , T$ 
700 GOTO630 

710 C0L0R1: PRESET (176, 170) : PRIET#1,T$: IFT$ 

=""THEE620ELSEIFK=3THEERETURE 

720 I FZ$=TSTHEEGOSUB800ELSEGOSUB8 10 

730 DEFUSR2=342:U=USR2(0) 

740 U=USR1(0):EEXTAK 

750 GOTO820 

760 IFLEE(TS)=0THEERETURE630 
770 T$=LEFT$(TS,LEE(T$)-2) 

780 PRESET ( 176 , 170 ) : COLQR10 : PR I ET#1 , STR I EG 

$(LEE(T$)+2,219) 

790 RETURE690 

800 PRESET (64, 180) : C0L0R6: PRIET#1, "GOED ZO 
! » : AG=AG+li PLAY" V15L1604CBGCEGCEGR1605C. " : 
FORV=1TO5000: EEXT: RETURE 

810 PRESET (64, 180) : COLOR6: PRIET#1 , "FOUT! He 

t was: " ; Z$: PLAY" V15L14BGEC" : AF=AF-i-i : FQRW= 

1TO7000: EEXT: RETURE 

820 CLS:SCREEE0:COLOR1,14,14 

830 CLS:L0CATE3,4:PRIET"Je hebt 20 sommen 

gemaakt , " 

840 LOCATE3,6:PRIET"Je had er" AG" goed. " 

850 L0CATE3,8:PRIET"Je had er"AF"fout." 

860 L0CATE3, 10: PR IET" Vil je nog een paar" 

870 L0CATE3, 12: PR IET" sommen maken? (j/n)" 

880 D$=IEKEY$: IFD$=""THEE880 

890 I FD$=" J" ORDS-" j " THEESCREEE0: COLORl, 11: 

GOTO260 
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900 SCREEN0 : CLS : DEFÜSR3=&H3E : X=ÜSR3 (0) : KEY 

0N:C0L0R15,4,4:END 

910 D=VAL(IN$) 

920 IN$=STR$(D) 

930 RETURN 

940 ' 

950 ' vram/ram machinecode 
960 ' 

970 RESTORE1030 

980 DEFUSR0=&HE000: DEFUSR1=&HE100 
990 FORI=&HE000TO&HE000+24 
1000 READXS: POKBI , VAL("&H"+X$) : NEXTI 
1010 FORI=&HE100TO&HE 100+24 
1020 READXS: POKEI , VAL ("&H" +X$) : NEXTI 
1030 DATA 21,00,00, 11,00, AE.01,00, 18 
1040 DATA CD, 59, 00, 21, 00, 20, 11, 00, C6 
1050 DATA 01, 00, 18, CD, 59, 00, C9 
1060 DATA 21, 00, AE, 11, 00, 00, 01, 00, 18 
1070 DATA CD, 5C, 00, 21, 00, C6, 11,00,20 
1080 DATA 01,00, 18,CD,5C,00,C9 
1090 RETURN 
1100 ' 

1110 ' Introplaatje 
1120 ' 

1130 KEYOFF:SCRBEN2,2,0:COLOR1, 10, 10:CLS:O 

PEF'GRP: "AS1: FORJ=1TO10: KEYJ , '"» : NEXT 

1140 A1*=*'U16R1U1R1U1R1U1R1U1R8D1R1D1R1D1R 

1D1R1D16L6U4L4D4L6" 

1150 A2$="U4R4D4L4" 

1160 PRESET(50,35) :COLOR4:DRA¥ AIS: PRESET ( 
56,25):C0L0R4:DRAW A2$ 

1170 B1$="U20R11D1R1D1R1D1R1D3L1D1L2D1R2D1 

R1D1R1D1R1D6L1D1L1D1L1D1L13" 

1180 B2$=A2$ 

1190 B3$="Ü3R4D3L4" 

1200 PRESET(75,35):C0L0R8:DRA¥ Bl$ 

1210 PRESET (81 , 27 ) : COLOR8 : DRAW B2$ 

1220 PRESET (81 , 22 ) : COLQR8 : DRAV B3$ 

1230 PRESET ( 100 , 35 ) : C0L0R4 : DRAW Al$ 

1240 PRESET ( 106 , 25 ) : COLOR4 : DRAW A2$ 

1250 C$="U12R1Ü1R1U1R1U1R1U1R9D1R1D1R1D1R1 

D1L1D1L1D1L1D1L1D1L2U1L4D5R4U1R3D1R1D1R1D1 

R1D3L1D1L1D1L1D1L9U1L1U1L1U1L1U1L1" 

1260 PRESET(125,31>:C0LOR8:DRAW C$ 

1270 U$=" U17R6D6R4U6R6D17L1D1L1D1L1D1L10U1 

L1U1L1U1L1" 

1280 PRESET (150, 32) :C0L0R4: DRAW U$ 

1290 S$="U3R1U1R1U1R1Ü1R1D4R4U5L4Ü1L1U1L1U 

1L1Ü1L1U4R1U1R1Ü1R1U1R11D1L1D1L1D1L1D2R1D1 

R1D1R1D1R1D1R1D8L1D1L1D1L1D1L11Ü1L1Ü1L1" 

1300 PRESET (175, 33) :C0L0R8: DRAW S$ 

1310 PAINT(52, 30) , 4: PAINT(77, 33) , 8: PAINT (1 

02,30),4:PAINT(127,30),8:PAINT(152,30),4:P 

AINT(177,30),8 

1320 LINE(64,145)-(192,160),2,BF 

1330 LINE(95,145)-(97,50), 15, BF 

1340 LINB(127, 145)- (129, 50) , 15, BF 

1350 LINEQ59, 145)- (161, 50) , 15, BF 

1360 PRESET (96, 148) : COLOR1: PRINT#1, "h" : PRE 

SET (128,148): COLOR1 : PR I NT#1 , " t" : PRESET ( 160 

, 148):C0L0Rl:PRINT#l,"e" 

1370 U=USR0(0) 

1380 PLAY"V15L1603AB04C#DER8R1603AB04C#DER 
8R1603AB04C#DER8E16A4" 

1390 CIRCLE(96, 140) , 8, 12, ,,. 5: PAINT (94, 140 
),12:PAINT(98,140),12 

1400 CIRCLE(96, 130), 8, 12, , ,. 5: PAINT (94, 130 
), 12: PA INT (£8,130), 12 

1410 CIRCLE(128, 140), 8, 8, , ,. 5: PAINT (126, 14 

0),8:PAINT(130,140),8 

1420 FORP=140TO120STEP-10 

1430 CIRCLE(160,P),8,4, , , . 5: PAINT(158, P) , 4 

:PAINT(162,P),4:NEXTP 



1440 PRESET (96, 170) : COLOR2: PRINT#1, "2" : PRE 
SET (128, 170) : C0L0R2: PRINT* 1 , " 1" : PRESET (160 
, 170):COLOR2:PRINT#1,"3" 

1450 PRESET(40,40):COLOR13:PRINT#1,"*** do 
or A. Vuijk ***" 

1460 PRESET(112, 180) : C0L0R15: PRINT#1 ," 1988 

1470 FORW=1TO10000:NEXT 
1480 RETURN 

1490 SCREEN2,2,0:COLOR1, 10, 10: CLS: K=VAL (K$ 

) 

1500 U=USR1(0) 

1510 PRESET (80, 170) : COLOR1 : PRINT#1 , "Welk g 
etal:" 

1520 PRESET (80, 180) : COLOR1 : PRINT#1 , "ESC=Me 
nu" 

1530 GOSUB610 
1540 IFLEN(T$)=6THEN1580 
1550 IFLEN(TS)=4THEN1590 
1560 IFLEN(T$)=2THEN1600 
1570 IFT$=""THEN1500 

1580 H=VAL(MID$(T$, 1,2)): T=VAL(MID$ (T$, 3, 2 

) ) : E=VAL (MID$ (T$, 5,2)): GOTO480 

1590 B>0 : T=VAL <LEFT$ (T$ , 2 ) ) : E=VAL (RIGHTS (T 

$,2)):GOTO480 

1600 H=0:T=0:E=VAL(T£):GOTO480 

1610 PRESET(176, 180) : PRINT#1 , " <TOETS>" 

1620 DEFUSR2=342:U=USR2(0) 

1630 L$=INKEY$: IFL$=""THEN1630 

1640 GOTO1500 

1650 RETURN 
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10 * 

20 'X STIEREN VANGEN * 

30 1 * Spelprogramma voor MSX 1/2 * 
40 '* Door: G. V. J. v.d.Pol. * 
50 '* <c) 1988 MSX Gids * 
60 •* Lelystad * 
70 ' ****************************** 
80 • 

90 KEYOFF: BEF INT A-Z:GOSUB 960 

100 LOCATE7, 2: PRIFT'@@@@@@@@@@@@@@@@ 

110 L0CATE7, 3: PRINT"@STIEREN@VANGEN@ 

120 L0CATE7 , 4: PRINT H @@@@@@@@@@@@@@@@ 

130 LOGATE1 ,8; PRINT*' @@@@@@@@@@@@@@@@@@@@@@ 

140 LOCATE 1,9: PRINT M @VI LT@U@EERST@Ü I TLEG@@ 
<aj/N+@" 

150 LOCATE 1 , 10: PRINT M @@@@@@@@@@@@@@@@@@@@@ 

160 I$=INKEY$: IFI$= ,m THEN 160 

170 IF I$= H J"OR I$= M j H THEN GOSÜB 1330 

180 IF I$<>"N" AND I$<>"n" THEN 160 

190 LOCATE 5, 15: PRINT"@@@@@@@@@@@@@@@@@@@@ 
ii 

200 LOCATE 5, 16: PRINT H @VELK@NIVO@ l@OF 2+@ 
♦j 

210 LOCATE 5, 17: PRINT*' @@@@@@@@@@@@@@@@@@@@ 

220 N=0: A$-INKEY$: IF ASO'T'AND A$<>"2"THE 
N 220 ELSE IF A$="2" THEN N=l 
230 GOSÜB960 
240 1 

250 'XXX stick-keuze XXX 
260 * 

270 IF STICK (0)>0 THEN J=0:GOTO340 
280 IF STICK(1)>0 THEN J=1:GOTO340 
290 IF STICK(2)>0 THEN J=2:GOTO340 
300 GOTO270 
310 * 

320 ' ***** Hoof dlus ***** 
330 * 

340 DX=2XRND<1):DY=2XRND<1> 
350 FORZ=0TO7 

360 IFXXOX 0RYYOYTHENVP0KE6144+32XYY+XX, 
7 

370 XX=X;YY=Y 

380 X=X+DX-(X<1)+<X>30> 

390 Y=Y+DY-<Y<1)+<Y>22) 

400 IFVPEEK <6144+32XY+X)=232THENY=Y+DY 

410 M=6144+32XV+H 

420 IFV=23GRV=0ORH=31ORH=0THENVPOKEM, 224: G 
0T0 460 

430 IFN=1ANDU=1THENU=0:GOTO460 
440 VPOKEtt,216 
450 ' 

460 I=STICK(J):VV=V:HH=H 

470 IFI=1THENV=V-1: IFV<0THENV=0 

480 IFI=5THENV=V+1: IFV>23THENV=23 

490 IFI=3THBNH=H+1: IFH>31THENH=31 

500 IFI=7THENH=H-1: IFH<0THENH=0 

510 IFVPEEK <6144+32XV+H)=232THENV=VV: H=HH: 

GOTO540 

520 IFV=VVANDH=HHTHENÜ=1:GOTO540 

530 IFN=1ANDVPEEK(6144+32XV+H)=216THENVP0K 

E6144+32XV+H,32:U=1 

540 PUTSPRITE0, (8XH, 8XV) , 9, 0 

550 S=6144+32XY+X 

560 IFX=HANDY=VTHEN670 

570 IFVPEEK (S) <216THENVPQKES, 208 : NEXT: GOTO 

340 

580 ' 

590 DX=-DX:DY=-DY:X=XX: Y=YY:Q=0 
600 FORE=Y-1TOY+1:FORF=X-1TOX+1 
610 IFVPEEK (6144+32XE+F) >215THENQ=Q+1 
620 NEXT: NEXT 

630 IFQ=8THEN770ELSENEXT:GOTO340 



640 ' 

650 'XXX einde spel XXX 
660 * 

670 VPOKE 6144+32XYY+XX,7 

680 VPOKE 6912, 191 

690 VPOKE 8218,22 

700 VPOKE 6144+32XV+H,208 

710 IF Y<10 THEN 730 

720 LOCATE 0,1: GOTO 740 

730 LOCATE 0,17 

740 PRINT H @§@@@@@@@@@^@@@@@@§@@@@@@@@@@" i 
750 PRINT"@ü@bent@door@de@stier@gevloerd" ; 
760 GOTO 840 

770 T=T I ME/50 : M=T/60 : S=TKQD60 
780 IF Y<10 THEN 800 
790 LOCATE 0,1; GOTO 810 
800 LOCATE 0, 16 

810 PRINT*'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ M > 
820 PRINT ,, @ü@hebt@de@de@stier@gevangen@@ ,, ; 
830 PRINTUSING**@in@##@minuten@en@##@second 
en@";M,S; 

840 PRINT'*@@@@@@@@ESC@is@opnieuvf@@@@@@@@ ,, ; 
850 PRINT'*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" ; 
860 I$=INKEYS:IF I$= ,M, THEN 860 
870 IF ASC<I$)=27 THEN 90 ELSE 860 
880 ' 

890 'XXX karakter+sprite data XXX 
900 * 

910 DATA 112,136,8,16,32,0,32,0 
920 DATA 128,64,255,255,127,34,34,34 
930 DATA 136,136,34,34,136,136,34,34 
940 DATA 170,85,170,85,170,85,170,85 
950 DATA 56,56,16,254,16,40,40,40 
960 * 

970 'XXX initialisatie XXX 
980 * 

990 SCREEN 1,0:VIDTH 30:COLOR 15,12,1 
1000 RESTORE 910 

1010 FOR A=344 TO 351:READ B: VPOKE A, B: NEX 
T 

1020 FOR A=1664 TO 1671:READ B: VPOKE A, B: N 
EXT 

1030 FOR A=1728 TO 1735: RE AD B: VPOKE A,B:N 
EXT 

1040 FOR A=1792 TO 1799; READ B: VPOKE A,B:N 
EXT 

1050 FOR A=1856 TO 1863: VPOKE A, 255: NEXT 
1060 FOR A=14336 TO 14343: READ B: VPOKE A,B 
: NEXT 

1070 VPOKE 6915, 9: VPOKE 8218,28 

1080 VPOKE 8219, 124: VPOKE 8220,188 

1090 VPOKE 8221,76: VPOKE 8197,145 

1100 FOR A=8200 TO 8207 

1110 VPOKE A,145:irEXT 

1120 FOR A=512 TO 519: VPOKE A, 0: SEXT 

1130 1 

1140 **** speelveldopbauw *** 
1150 ' 

1160 FOR A=6144 TO 6175 

1170 VPOKE A, 224: VPOKE A+736, 224: NEXT 

1180 FOR A=6176 TO 6848 STEP 32 

1190 VPOKE A, 224: VPOKE A+31, 224: NEXT 

1200 FOR A=6529 TO 6558 

1210 IF AMOD10=1 THEN 1230 

1220 VPOKE A.232 

1230 IEXT 

1240 X=16*RND(-TIME>+2: Y=6 

1250 H=30-16*RND(1):V=19 

1260 XX=X: YY=Y: TIME=0 

1270 PUT SPRITE 0, <8*H, 8*V> , 9, 0 

1280 VPOKE 6144+32XY+X.208 

1290 RETURN 

1300 * 

1310 '*** introductie *** 
1320 ' 
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1330 
1340 
1350 
1360 



SCREEN 0:COLOR 15,4,4:VÏDTH 37:CLS 



PRINT" 
PRINT 
PRINT" 



STIEREN VANGEN» 



Een mannetje ( dat bent U dan 
) moet" ; 

1370 PRINT"praberen am in een weiland een 
stier 

1380 PR INT" te vangen door hem met hekken i 
n te 

1390 PRINT"sluiten, Maar pas op dat ü niet 
door 

1400 PR INT" de stier wordt gevloerd! 

1410 PRINT" De stier kan over de sloot spr 

ingen,"; 

1420 PRINT"het mannetje moet echter over è 
èn van"; 

1430 PR INT" de dammen om de overkant te ber 

eiken,"; 

1440 PRINT 

1450 PRINT" Het mannetje kan worden bestim 
rd met" ; 

1460 PR INT" de joystick of de cursortoetsen 
, de 

1470 PRINT"stier vindt zelf z'n weg welt 
1480 PRINT 

1490 PRINT" Bij spelnivo 1 kan het mannetj 
e over" ; 

1500 PSINT ,, z'n eigen hekken klimmen om zie 
h uit" 

1510 PR INT" de voeten te kunnen maken, Bij 
nivo 2"; 

1520 PRINT"moet hij daartoe eerst een open 
ing in"; 

1530 PR INT" het hek maken, 

1540 PRINT" Hierbij is het dus oppassen ge 
blazen" ; 

1550 PRINT"dat de stier ü niet nakomt! 
1560 PRINT 

1570 PRINT" Welk nivo kiest U, 1 OF 2? 



1580 RETURN 220 
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NABESTELLINGEN OUDE 
NUMMERS MSX-GIDS: 

De nummers 1 t/m 11 van de MSH Gids zijn 
GEHEEL UITVERKOCHT. Hieronder volgt een 
overzicht van de nummers, welke nog wel 
verkrijgbaar zijn met een beknopte om- 
schrijving van de inhoud: 

MSH GIDS NUMMER 12 

LISTINGS: MAZE, SCRAMBLE, DI5KL0ADER, 
MSH DUMP SCREEN 2, BALLETJE- BALLETJE 
CMSH-2), TITELDOOS CMSK-2) 

Verder de cursus BASIC, machine taal en 
Rekenen op de MSH. Test NMS- 8280 en 20 
sof twaretitels beschreven. 

MSK-GIDS EXTRA EDITIE H2 



LISTINGS: MEHICO GOOIEN, EUROPA PER 
HELICOPTER, WERELD PER HELICOPTER, HOU 
JE VAST!, SPROKKELEN, LIJNTREKKEN, JACK- 
POT, EEN- EN TWINTIGEN, CHANGE CHARAC- 
TER, SCREENDUMP SCREEN 1, RABBIT HOLE, 
FLYING HERO. 

Verder sof twarerecensies Arkanoid en MSH 
Artiest 

MSK-GIDS NUMMER 13 



LISTINGS: POSTER DESIGNER, JUMPING JACK, 
WRITING RACE, BESTAND CDATA BASE), 
WOORDENLADDER, SCHUIFPUZZEL, REKENMA- 
TRIH, DE MUUR CMSH-2), BINAIR. 
Verder "Rekenen op de MSH" (2), MSH-Ma- 
chinetaal (4), Test Philips NMS1255 Modem, 
veel sof twarerecensies Co.a. Maze of Gali- 
ous & Q-Bert), spelpoke's en tips. 

MSK-GIDS NUMMER 14 

LISTINGS: SPREADSHEET, OPTELLEN EN 
AFTREKKEN, MENS ERGER JE NIET, DOMI- 
NEUR, RAIDER 

Verder: MSH-Machinetaal C5), Rekenen op de 
MSH (3), Leer, Probeer en Programmeer (5) 
en veel software- en adventurerecensies, 
tips, poke's, kaarten. 

MSK-GIDS NUMMER 15 



LISTINGS: SCREEN 1 EDITOR, BREAK-IT, MU- 
SIC COMPOSER, BARRIÈRE. 

Verder: Rekenen op de MSH C4), Leer, Pro- 
beer en Programmeer (6), MSH Machinetaal 
(Slot), Hardwaretests van Philips NMS 1205 
Muziekmodule en NMS 1160 Keyboard + veel 
sof twarerecensies, spel- en adventuretips 
Co.a. kaart Super Rambo Special). 

MBK-GID^_M^MMER 16 

LISTINGS: ZEESLAG CMSH-2), PRINT OFFICE 
CD.T.P.-MSH-2), ZEESLAG, DRAW TEKENPAK- 
KET. 

Verder: Computer en Bestanden, Recursie 
in Basic, Pascal Tekstutilitu, Rekenen op 
de MSH (5), Leer, Probeer en Programmeer 
C7) 

Software: Deep Forest, Terramex, Streaker, 
Treasure of Usas, Metal Gear Ckaart + 
tips), Neos MS-10 Mouse & Cheese, Elite, Co- 
conut Capers, Death Wish 3, Masters of 
the Universe, Howard the Duck, Adventu- 
retips. 

Oude nummers zijn te bestellen door over- 
making van FL 7,35 per exemplaar op Post- 
banknummer 5036011 t.n.v. J.Herps te Lely- 
stad. Voor België Bfr. 155 op Bankreke- 
ningnummer 235-0430464-87 bij de Generale 
Bank te Hasselt t.n.v. J.Herps, Postbus 516, 
8200 AM LELYSTAD. 
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Amstel 312 (t.o. Carré) / 1017 AP Amsterdam / Giro 4 475 



******************************************^ 

- onze nieuwe ZOMER 1988 CATALOGUS is nu uit. Stuur ons een kaartje * 

* met je naam en adres + de vermelding 'MSX Gids' 

* en we sturen hem GRATIS toe. Of kom hem afhalen in de winkel. 



in BELGIË 

zijn al onze artikelen verkrijgbaar bij 
Het Computerwinkeltje pvba, 
M Sabbestraat 39, B-2800 MECHELEN 
telefoon (015) 206 645 



HIERONDER EEN OVERZICHT VAN ACTUELE MSX BOEKEN 



MSX Bestsellers Najaar 88 

MSX ROM/BIOS Handboek 55 

Programmeercursus MSX BASIC » 45 

40 Grafische Programma's MSX 29,90 

MSX(2) BASIC en Machinetaal 32,50 

Turbo Pascal Compleet 68 

MSX Computers en de Buitenwereld , 27,85 
MSX Truuks en Tips deel 8 ........ 25,15 

Werken met Bestanden in MSX BASIC ... 45 

Handboek MSX 79,50 

BASICODE-3 incl cassette MSX/MSX2 27,50 
Grafische Experimenten voor MSX ,. 34,50 

MSX BASIC (Sickler) 30,75 

Toepassingen voor MSX computers .. 29,50 
MSX Programmeren in Machinetaal .. 32,50 

MSX Machinetaalhandboek 34,80 

Machinetaal voor MSX Computers ... 39,50 
Tips en Trucs voor de MSX Computer 49,90 
MSX LOGO Spelenderwijs 27,50 



Z80, BASIC, C, Logo, Pascal 

Zakboekje Z-80 25,25 

Machinetaal Z80 - Gestruct . 39,50 
Microsoft BASIC - MSX BASIC ... 69 

De Programmeertaal C 25 

Logisch Logo • 35 

MSX neder lands 

BASIC Computerspellen MSX .. 27,50 

Zakboekje MSX - BASIC, DOS . 21,50 

MSX Handboek voor Gevorderd. 64,50 

MSX LOGO Spelenderwijs ..... 27,50 

MSX-Computers in Basisschool 39,90 

MSX Computers en Printers .. 27,75 

MSX BASIC Handboek 49,95 

MSX DOS Handboek v iedereen 26,75 

MSX Disk Handboek 29,80 

MSX DOS met Disk BASIC 33,50 

BASIC Programmaas voor MSX . 25,50 



* Speciale MSX boeken aanbieding * 

* MSX EXPOSED f 5 , - * 

* normale prijs f 39,- * 
*********************************** 

MSX neder lands NIEUW! 

*Praktijkso£tware voor MSX- 
Computers - ook voor disk . 27,90 

*MSX Computers en de Buitenwereld 
met print-lay-outs 27,85 

*Elektronicaprojecten voor 

MSX Computers 34,50 

MSX-2 BASIC Handboek ....... 57,05 

Financiële Programmaas v MSX 25,75 
Het MSX Software boek ...... 27,90 

Werken met de MSX Computer . 25,75 

De MSX Gebruikersgids 39,50 

Grafiek en Geluid voor MSX . 49,90 



ACTUELE 



MSX 



SOFTWARE (t=tape/d=disk/c=cartridge) 



MSX-2 Software disk, cart 

RF Assembier 89 

Tasword MSX-2 149 

*Dynamic Publisher .. d 149 
Snelfaktuur MSX-2 .... 149 

500 debit, 2000 art. 
Kastan - database .... 149 
Fastan fakturering 300,50 

Fistan ... 300,50 

financiële administratie 

*Breake.r d 39 

USAS konami cart 79 

Metal Gear konami cart 79 
Playhouse StripPoker 59,90 
The Chess Game MSX-2 49,90 

*RADX-8 39,00 

Vampire Killer .. cart 79 

*Z00 adventure .... d 45,00 



MSX 



programmeer tal e 



MSX Nuttig 



MSX Art is t t 19 

Tasword nederlands .. t 95 

Tasword nederl disk . dll5 

Tasword MSX engels... t 65 

SuperKasboek disk .. d 149 
voor privé boekhouding 
en vereniging. 

MSX utilities : 



Delta BASIC . . . disk d 95 
BASIC uitbreiding voor 
uw MSX computer 
Delta BASIC ... tape t 89 

Hisoft DevPac t 79 

Hisoft De.vPac80 2.0 d 189 
*Turbo Pascal engels d 195 
Borland versie, 3.5" 
Hisoft Pascal 80 ... d 189 

Hisoft C++ d 189 

Flash (dis)Assèmbler d 119 

MSX Adventure s 
Gnome Range r ........ t 39 

Knight Ore t 59 

bevat de volgende level9 
adventures : 
Loosed Ore, A Kind of 
Magie, Hordes of the 
Mountain King 
Jewels of Darkness . , t 65 
Silicon Dreams t 59 

Denk en bordspelen 

^Klaverjassen d 29,95 

The Chess Game 1 . t 29,90 
*Colossus Chess 4.0 t 39,00 



TURBO 5000 cart 119 

hardcopy , turboload , 
back-up, disk monitor, 
tapedirectory etc. voor 
MSX1 en 2, tape en disk. 

üiskit -disk toolkit. d 69 



*NASHUA diskettes per 10 * 
5" single sided ..... 15 
3.5" single sided .. 42,50 
3.5" doublé sided 45 



MSX Sportsimulaties 

BMX simulator t 10 

Konami Boxing c 65 

F-l SPIRIT c 79 

Konami mega ROM met LSI 
Custom Sound Chip. 

*California Games .... t 39 
Football Manager .... t 36 

Konami Football c 65 

Formula 1 Simulator . t 10 
International Karate t 15 

*Professional Snooker t 10 
Speedking motorrace . t 10 
Wintergames t 39 

*World Games t 39 

Yie Ar Kung Fu II ... c 69 

MSX F light simulators 
747 Flightsimul. . t 39,90 
747 Flightsimul .. d 49,90 

Chopper I t 29,90 

Chopper I d 39,90 

Elite t 59,00 

Elite disk d 69,00 

Flight Deck .. t 29,90 

Flight Deck d 39,90 

Flight Pack 1 t 29,90 

737 + North Sea Heli. 
Flight Pack 1 disk d 39,90 

verwacht : 
Flightsimulator (subLOGIC) 

MSX arcade games: 

Aliens (vd film) .... t 39 

Arkanoid t 36 

Army Moves t 36 

Batman • t 36 



MSX Arcade Games: 

*30 MSX Hits t 49,90 

op 6 cassettes, oa 
Musix,Spy vs Spy,Sorcery, 
Beach Head, Boulderdash 

*30 MSX Hits op disk 79,90 



Dawn Patrol 



t 34,90 



39 
36 



Deathwish III t 32 

Feud t 10 

Fire Hawk t 10 

Flash Gordon t 15 

Galaxians . t 15 

Game Master Konami . , c 75 
2 slots nodig 

Gauntlet t 

Head over Heels ..... t 

Hyperralley c 65 

*Hunt for Red October t 59 

submarine combat 
*Indiana Jones ....... c 39 

Knightmare c 65 

The Living Daylights t 39 
Mappy ............... t 15 

Mask II t 39 

Masters of Universe . t 32 

Maze of Gal ious c 75 

Nemes is - konami .... c 65 
Nemesis II konami ... c 79 
Ocean Conqueror ..... t 15 
t 15 
c 69 
c 69 
c 79 
t 10 
t 15 
t 10 



Pacman . 

Penguin Adventure .. 
Road Fighter konami 
*Salamander (konami) 

Sea King 

Storm Bringer ...... 

Vampire 



I M I I I M | 1 I I II 1 M M I I 1 
winkel open van dinsda 
verzendkost 



1 I I M I MM I M HM MIM I MM I 1 f 



* t/m zaterdag tussen 10.00 en 17.00 (maandag gesloten) - alle prijzen inclusief BTW 
f 6,- per bestelling - vra ag onze nieuwe ZOMER 1988 C ATALOGUS aan. 
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microcomputer tijdschriften boeken en software 



dealer aanvragen welkom 



FREEKICK 



Leuke jongens daar bij Filosoft. Elke keer 
weer weten ze ons te verrassen met 
prachtige programma's voor een lage prijs. 
Na o.a. Tasword, Diskit en Delta BASIC is 
het nu de beurt aan FREEKICK. 

Freekick is een memory-resident program- 
ma. Dat wil zeggen, dat het programma in 
het geheugen van de computer opgeslagen 
blijft en telkens wanneer het nodig is (ook 
tijdens het werken met andere program- 
ma's) weer opgeroepen kan worden. Uiter- 
aard kan dit niet in het beperkte geheu- 
gen van de MSH-1 en daarom is het pro- 
gramma dan ook alleen geschikt voor 
MSH-2 machines met een memorg mapper 
van minimaal 128K RAM. 

De doorgewinterde computeraars snappen 
al meteen dat dit een 'probleem' program- 
ma is, omdat het -uiteraard- botst met 
andere programma's die gebruik maken van 
de memorij mapper. Maar ja, dat is nu een- 
maal zo en niet alleen bij de MSH! 
Freekick bestaat uit de volgende onderde- 
len: 

De agenda kan b.v. afspraken bijhouden. 
Deze kunnen gewist, toegevoegd en gewij- 
zigd worden. 

De klok bevat tevens een alarm. Moet je 
;emand over een uurtje terugbellen? Zet 
het alarm maar aan! (Natuurlijk niet de 
computer uitzetten). Ook makkelijk als 
eierwekker of wanneer de pizza uit de 
oven moet. 

De adressenlijst heeft rubrieken voor 
NAAM, ADRES, POSTCODE, WOONPLAATS en 
TELEFOON. Dit bestand kan ook nog worden 
gesorteerd, gewijzigd en opgeslagen op 
disk. Zeer handig programma! 
De calculator kent de volgende opties: op- 
tellen, aftrekken, delen, vermenigvuldigen, 
worteltrekken, machtsverhef f en, sinus, 
tangens en cosinus. De calculator heeft 
een geheugen en kan ook hexadecimale en 
binaire getallen verwerken. Het geheugen 
van de calculator kan ook zichtbaar wor- 
den gemaakt. 

De hulpschermen: Freekick heeft 4 pagina's 
voor informatie. Twee pagina's zijn door 
Filosoft al ingevuld met een ASCII tabel en 
een toetsen tabel. Alle pagina's kunnen 
zelf ingevuld worden met een tekstverwer- 
ker. De eenmaal ingetypte informatie is 
vervolgens altijd bij de hand. 
Zelf vind ik het adressenbestand en de 
klok/timer de leukste onderdelen; buiten 
leuk nog bruikbaar ook. De calculator moet 
je in het begin wat vaker gebruiken, an- 
ders grijp je toch steeds maar weer naar 
een echte rekenmachine. Gelukkig is de 
calculator zeer gebruiksvriendelijk, zodat 
het best mogelijk is, dat gebruikers van 
dit programma dit onderdeel ook zullen be- 
nutten. De agenda is niets voor mij. Ik 
ben gek op een buro met een indrukwek- 
kende stapel notities en kladjes. Toch is 
dit onderdeel best bruikbaar, maar het is 
aan de gebruiker zelf om te beoordelen. 

De diskette is voorzien van een prima Ne- 
derlandse handleiding en kost (echt waar!) 
slechts FL. 69,=, Kopen dus! Dit programma 
is zeker zijn prijs waard, daar vrijwel ie- 
dereen het -geheel of gedeeltelijk- zal 
kunnen gebruiken. 



FILOSOFT 

FREEKICK 

FREEKICK is een nieuw programma voor MSX-2 computers. U kunt 
er mee werken terwijl u in een ander programma bezig bent! 

FREEKICK is een zogenaamd memory-resident programma: het blijft - 
via één toetsindruk bereikbaar - in het RAM-geheugen van de compu- 
ter ook al is er een ander programma geladen. Filosoft maakte FREEKICK 
geschikt voor elke MSX-2 computer met een memorymapper {= mini- 
maal 128K RAM), en één of meer diskdrives. 

FREEKICK is multifunctioneel. Het beschikt over een agenda, een 
adressenlijst, een (alarm)kiok, een calculator en 4 hulp-pagina's. 
DE AGENDA 

De agenda van FREEKICK houdt al uw afspraken bij. Afspraken kunnen 
gewist, toegevoegd en veranderd worden. 
DE KLOK 

Een afspraak vergeten? FREEKICK niet. Met de alarmklok van FREEKICK 
wordt u gewaarschuwd. 
DE ADRESSENLIJST 

Met dit deel van FREEKICK beschikt u altijd over een adressenlijst met 
NAAM, ADRES, POSTCODE, PLAATS en TELEFOON. Met een enkele 
toetsindruk kunt u gegevens invoeren, wissen, veranderen, sorteren en 
bewaren. 

DE CALCULATOR 

De calculator van FREEKICK kent opties als: optellen, aftrekken, delen, 
vermenigvuldigen, worteltrekken, machtsverheffen, sinus, tangens en 
cosinus berekenen. De calculator beschikt over een geheugen, en kan 
ook hexadecimale en binaire getallen hanteren. 
DE HULPSCHERMEN 

FREEKICK kent vier pagina's voor informatie die u wilt gebruiken als u in 
een ander programma bezig bent. Twee pagina's zijn al ingevuld met 
resp. een ASCII-tabel en eentoetsen-tabel. U kunt alle pagina's zelf vul- 
len met behulp van een tekstverwerker: eenmaal ingetypt is de informa- 
tie vervolgens altijd bij de hand. 

FREEKICK is een goede buur van MSX-DOS, BASIC- of machinetaal- 
programma's die geen gebruik maken van de memorymapper 

FREEKICK KOST f 69,00 (incl. BTW) 

Andere programma's van FILOSOFT 
voor MSX-computers: 

TASWORD MSX De Nederlandstalige tekstverwerker 

voor MSX-1 computers cass f 95,- 

TASWORD MSX-2 De Nederlandstalige tekstverwerker 

voor MSX-2 computers disk f 149,- 

DELTA BASIC Een wezenlijke uitbreiding 

voorMSX-BASIC " disk ƒ 95,- 

DISKIT De toolkit voor diskette-gebruik op 

MSX-computers disk ƒ 69,- 

REKENEN MET Een samenhangend, procesbewakend 
ABACUS EN rekenpakket voor kinderen van 

HONDERDVELD vijfeneenhalf tot tien jaar disk f 99,- 

informeer naar de schoolversie 
REDEKUNDIG Een degelijk oefenprogramma om 

ONTLEDEN het redekundig ontleden onderde 

knie te krijgen cass/ 59,- 

DEVPAC Een assembier, disassembler en 

monitor voor MSX-1 **ca$sf 79,- 

DEVPAC80 Een assembier, disassembler en 

{versie 2) monitor voor MSX-1 en MSX-2 computers 

met min. 64 RAM en een 

aangesloten diskdrive * * disk ƒ 1 65, - 

PASCAL 80 De diskuitvoering van PASCAL ** disk M6ö!- 

C + + Een bijzonder krachtige C compiler 

voor MSX * * disk ƒ 1 65, - 

ITJING Computerversie van het orakelboek disk f 79, - 

MSX-64PLUS Hulpprogramma (o.a. tekst uitvergroten, 

64 lettertekens per regel op 

het beeldscherm) cass ƒ 34,50 

DRIE IN EEN Aardrijkskunde, tekenen en rekenen 

voor kinderen vanaf 6 jaar cass f 34,50 

MSX-BRIDGE Een bridge-programma voor beginners cass f 49,- 

Programma's, gemerkt met 2 sterren { * * ) vereisen (enige) kennis van de En- 
gelse taal. 

MEER INFORMATIE? 

BEL NU voor een GRATIS BROCHURE (050-137746) of schrijf een brief- 
kaartje naar: 

FILOSOFT, postbus 1353, 9701 bj Groningen. 

Filosoft produkten zijn verkrijgbaar in iedere goede computerwinkel, 
maar ook rechtstreeks te bestellen door storting van het bedrag +' 
f 3,50 verz. kosten op giro 20792 t.n.v. Filosoft, Groningen. Telefoni- 
sche bestellingen ( + f 6,50 rembourskosten extra) worden zo mogelijk 
nog dezelfde dag verzonden. 
Faxnr. 050-1451 74. ABN 57.12.60.225. 



(incl. BTW) 
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EEUWIGDURENDE KALENDER 

door A.Vuijk 

(c)1988 MSX Gids 
Lelystad 



* 
* 
* 
* 
* 
* 
* 
* 



100 * **************************** 
110 ' 

120 CLEAR200: DEF INT A-Z; ÖNSTOPGOSUB740: STOP 
ON: POKE&HFBB0, 1 

130 SCREEN1: C0L0R15, 4, 4: CLS: KEYOFF 

140 L0CATE2, 0,0: PRINT" < EEUWIGDURENDE KALE 

NDER > M 

150 PRINT: PRINT: PR INT" Met dit programma ku 
n je" 

160 PR INT" van een bepaalde maand uit" 
170 PRIK" een jaar naar keuze tussen 41 
180 PRINT" 1900 en 2100 een kalender" : PRINT 
"maken, " 

190 PRINT: PR INT" Ook kunt u te weten komen 
op" 

200 PRINT"welke dag een bepaalde datum val 
t," 

205 L0CATE5, 20, 0: PRINT" <TOBTS>" 
210 DEFUSR=342:U=USR<0) 
220 I$=INKEYS: IFIS=""THEN220 
280 CLS: PRIK" 1. Kalender" 
290 PRINT: PR INT" 2, Datum" 
300 PRINT: PRINT"3* Stoppen 
310 PR INT: PR INT" Maak je keuze"; 
320 INPUTK 

330 IFK<1ORK>3THEN280 
335 IFK=3THEN750 

340 CLS:PRINT"Welk jaar (1901-2099)"; 
350 INPUTJT 

360 IFJT<1901ORJT>2099THEN340 

370 PRINT: PRINT" Welke maand (1-12)"; 

380 INPUTMD 

390 IFMD<1ORMD>12THEN3?0 
395 ONKGOTO400, 1000, 750 
400 GOSUB1200 

410 SCREEN2:C0LQR1, 10, 10: CLS: OPEN"GRP: " AS1 
420 PRESET (48, 16) , 10: C0LGR1: PRINT#1, MD$; " 
" ; JT 

430 LINE(48,40)-(216,152),7,BF 
440 F0RP=48T0216STEP24 
450 LINE(P,40>-(P,152),1 
460 NEXTP 

462 FORP=40TO152STEP16 

464 LINE(48,P)-(216,P),1 

466 NEXTP 

470 RESTORE660 

480 F0RP=52T0196STEP24 

490 READPS 

500 PRESET(P,44),7:CÖLORl 
510 PRINT#1,PS: NEXTP 
520 GOSUB700:C=1 
530 IFDA<2THEN560 

540 F0RR=DAT07 : PRESET (28+R*24, 60) , 7: COLOR1 

:PRINT#1,USING"##";C 

550 C=C+1 : NEXTR: GOTO580 

560 F0RR=1T07: PRESET (28+R*24, 60) , 7: CQLGR1: 
PR I NT# 1 , US I NG" ##" ; C : OC+ 1 
570 NEXTR 

580 F0RR=1TQ5: F0RK=1T07: PRESET (28+K*24, 60+ 
R*16) 7 

590 COLORl:PRINT#l,USING"##";C 
600 C=C+1: IFC=AD+1THEN620 
610 NEXTK , R 
620 PRESET (24,168), 10: COLOR1 : PR I NT#1 , " Gez i 
en? Druk dan een toets," 
630 DEFUSR=342 : U=USR (0 ) 
640 I$=INKEY$: IFI$=""THEN640 



650 CLOSE: SCREEN 1 : COLOR15 ,4,4: GOTO280 

660 DATAZO, MA, Dl , WO, DO, VR, ZA 

700 IFMD=1ORMD=3ORMD=5ORMD=7ORMD=8ORMD=10O 

RMD=12THENAD=31 

710 I FMD=40RMD=60RMD=90RMD= 1 1THENAD=30 

720 I FMD=2 ANDJ TMOD4=0THENAD=29ELSE I FMD-2TH 

ENAD=28 

730 RETURN 

740 PLAY"C« " : RETURN 

750 CLS:L0CATE5, 10:PRINT"T 0 T ZIENS 
j » 

760 FORWA= 1TO3000 : NEXT : SCREEN0 : KEYON: END 
1000 GOSUB1200:GOSUB700 

1010 PRINT: PR INT" Welke datum van de maand" 
1020 INPUTKD 

1030 I FKD< 1ÖRKD> ADTHENPR I NT" Die bestaat ni 
et!":CLS:GOTO1010 

1040 DA=DA+KD- 1 : DB=DAM0D7 : I FDB=0THENDB=7 

1050 RESTORE1180 

1060 FORP=lTODB: READDS: NEXT 

1070 CLS: PRINT: PRINTKD;" ";MD$;JT 

1080 PRINT: PRINT" was op een ";D$ 

1090 LOCATE0, 10: PR INT" Gezien? Druk dan een 

toets, " 
1100 J DEFUSR=342:U=USR(0) 
1110 I$=INKEY$: IFI$=""THEN1110 
1120 CLS:GOTO280 

1180 DATAzondag, maandag, dinsdag, woensdag, d 
onderdag, vrijdag, zaterdag 
1200 J=JT:M=MD 

1210 IFMD<=2THENJ=J-1:M=K+12 
1220 V=INT(13/5*(M+D) 
1230 W=INT(5*J/4) 
1240 X=INT(J/100) 
1250 Y=INT(J/400) 
1260 D=V+W-X+Y+1 

1270 DA=INT((D/7-INT(D/7))*7+, 1) 

1280 IFDA=0THENDA=7 

1290 RESTORE1400 

1300 F0RI=1T0MD 

1310 READMDS 

1320 NEXT 

1400 DATAjanuari, februari, maart , april , mei, 
juni, juli, augustus, september, oktober, novem 
ber, december 
1410 RETURN 



CONTROLE 

Regel : 

Rtgal : 

Rtgel : 

Regel : 

Regel : 

Regel : 

Rtgel : 

Regel : 

Regel : 

Regel ! 

Regel ; 

Regel : 

Regel : 
Regel : 

Regel : 
Regel : 
Regel : 
Regel i 
Regel : 
Regel : 
Regel i 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel ; 
Regel : 
Regel : 
Rege 1 '. 
Regel : 



TELLÏ 

10 - 

20 - 
30 - 
4© - 
50 - 
60 - 
70 - 
80 - 
90 - 
100 - 
110 - 
120 - 
130 - 
140 - 
150 - 
160 ~ 
170 - 
180 - 
190 - 
200 - 
206 - 
210 - 
220 - 
280 - 
290 - 
300 - 
310 - 
320 - 
330 - 
335 - 
340 - 
350 - 
360 - 
370 - 
380 - 
390 - 



NS 

SS 
58 
58 
SS 
58 
58 
58 
58 
58 
58 
58 
226 
56 
97 
53 
83 
147 
124 
181 
31 
1 46 
1 47 
1 1 3 
83 
27 
232 
136 
208 
29 
1 77 
119 
35 
192 
38 
22 
10 



Rtgel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel 5 
Regel ! 
Regel : 
Regel : 
Rege 1 ; 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel : 
Regel ; 
Regel : 
Regel : 
Regel : 
Regel : 



39S - 

400 - 

410 - 

420 - 

430 - 

440 - 

450 • 

460 - 

462 - 

464 • 

466 - 

470 ■ 

480 • 

490 

600 

510 

520 

530 

540 

5S0 

560 

570 

580 

530 

600 

610 

620 

630 

640 

650 

660 

700 

710 

720 



87 

79 

90 

63 
151 
195 

87 
211 
115 
159 
21 1 

48 
1 79 
251 

24 
1 15 
215 
45 
235 

1 58 
42 
213 

156 
231 
77 
76 
91 

147 

• 23 
■ 70 

• 204 

- 242 

- 75 

- 174 



Regel : 


730 




1 42 


Regel : 


740 




62 


Regel : 


750 




220 


Regel 


760 




246 


Regel,: 


1000 




226 


Regel 


1010 




125 


Regel : 


1020 




20 


Regel 


1030 




1 06 


Regel 


1040 




1 18 


Regel 


1050 




53 


Regel 


1 060 




24 


Regel 


1070 




44 


Regel 


1 080 




5 


Regel 


1090 




1 88 


Regel 


1 100 




147 


Regel 


1110 




239 


Regel 


1 120 




1 37 


Regel 


: 1 180 




235 


Regel 


. 1200 




222 


Regel 


: 1210 




62 


Regel 


: 1220 




212 


Regel 


: 1230 




113 


Regel 


: 1240 




205 


Regel 


: 1 250 




8 


Regel 


: 1260 




1 04 


Regel 


: 1270 




106 


Regel 


: 1280 




118 


Regel 


: 1 290 




23 


Regel 


: 1 300 




54 


Regel 


: 1310 




60 


Regel 


: 1 320 




131 


Regel 


: 1400 




71 


Regel 


: 1410 




142 


ToteelS 1187* 
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Aanvullingen 
MOUSE programma's 



In de handleidingen van de 3 MOUSE pro- 
gramma's staan enkele onjuistheden. Zo is 
het regelnummer, waarin de gegevens voor 
de printer moeten worden aangebracht, 
niet 170 maar 110. Tevens ontbreken de re- 
gels, die moeten worden aangebracht, wan- 
neer -bij een niet MSH printer- de uitdraai 
ondersteboven wordt afgedrukt. Hieronder 
volgen deze regels, die in de hoofdprogram- 
ma's moeten worden geplaatst: 



MOUSE 5ï 

101 POKE &HDCC3,&H63: 

POKE &HDCF6,&Hé»3: 

POKE &HDDlD,8rH63: 

MOUSE 7: 

101 POKE &HDCA3,&H43: 

POKE 8rHDCDÓ T &H43! 

POKE &HDCFD,&H43s 

MOUSE S: 

101 POKE 8tHDC50,&HE7: 

POKE &HDCB1,&HE7: 

POKE 8rHDCAA,&HE7: 



POKE &HDCDE,&H61s 
POKE &HDD0B,&H61: 
POKE &HDD33,&H61 



POKE &HDCBE,&H41: 
POKE &HDCEB,&H41: 
POKE &HDD13,&H41 



POKE &HDC6A,&HE6s 
POKE &HDC97,8rHE6: 
POKE &HDCBC&HE6 



POKES en TIPS 



NAAM DEEL 


Adres 


Soort /aantal : 


Mag i cal 


1 


B B 3 A 7 x 


I evens 


Ui z Ki d 


2 


SA A4ï x 


toverstokjes 




2 


BAAS, x 


boemerangs 




2 


8AA6, X 


zandl opers 




2 


SA A 7* x 


drankjes 




2 


BAAS, x 


expl osi es 




2 


8AA9, x 


vuur 




2 


SA AA* x 


hul puezens 




2 


SAAB, x 


drankjes 




2 


8AAC, x 


s I eu t el s 




2 


SAAD, x 


di a m a n t e n 


Fruit Pani c 




ABBDï x 


1 evens 






ABCS, N 


N=f rui tpoi nts 








x 1 0 






ABE0,x 


bommen 


Sk ranbl e 




D 7C C * x 


1 evens 


(Gids nr. 12) 




DUB, 201 


geen radar 


Demand 




C89C, x 


1 evens 


Zexas 




901 A, x 


1 evens 


Pi p p o 1 s 




91 CF, x 


1 evens 


Cl apton II 




A069, x 


1 evens 


Magi cal Tree 




8948, 0 


onsterfl i jk 


Green Beret 


2 


AAI F, 0 


geen tegen- 








standers 


RADX-S 


4 


B0DE, 0 


onsterfl i jk 



'Deel' staat voor het machinetaalgedeelte, 
waarin moet worden gepoked. Deel 2 — 1 be- 
tekent dus dat er twee delen zijn en dat 
de poke moet komen in deel 1. Toepassen: 

10 BLOAD ,, deeI" 

20 POKE &Hxxxx,x 

30 DEFUSR=&Hxxxx:A=USR(0) 

Het spel 'The Flintstones" kan wel met 
joystick worden gespeeld, als deze wordt 
aangesloten op poort 2. 



METAL GEAR 

Als je bij de Big Boss bent en de Cigaret- 
tes neemt, wordt de tijd om te ontsnappen 
vermeerderd met 200G. 



GHOSTBUSTERS 

Je naam is GRR.PAC en de code 1170700. 
TRITORN (MSK-2 versie) 

1. Vergaar zoveel mogelijk EHP waardoor 
STR (rood) en H.P. Cblauw) toenemen. 

2. Je kunt je weer 'opladen' door op een 
plaats te gaan staan waar geen vijanden 
komen. 

3. Probeer alle schatkisten te krijgen. 
Lukt dit niet meteen, probeer dan EHP Czie 
punt 1) zodanig aan te vullen dat je haast 
geen STR en H.P. meer krijgt en versla 
dan de monstertjes bij de schatkisten of 
loop eroverheen Cb.v. bij de kist in de kuil 
in stage 1; 3 velden links van de eerste 
deur). 

4. Sommige items krijg je door een aantal 
monstertjes van dezelfde soort te ver- 
slaan. B.v. de doorzichtige stenen met het 
gele randje: je krijgt hier een flesje met 
gele inhoud. Bij de roze mannetjes krijg je 
een schild en een ring om bij de draak te 
komen. Bij de monstertjes rechts van de 
rood- blauwe ballen krijg je twee sleutels 
(nodig in stage 2) en hier ligt ook het 
schild van de mannetjes waar je de ring 
van kreeg. 

5. In stage 2 kom je ergens via een deur- 
tje bij twee deuren, die zich boven elkaar 
bevinden. Open de deur met het blauwe 
sleutelgat door er tegenaan te lopen en ga 
door de tweede deur. Nu kom je in een 
grot. Ga hier (voorlopig) nergens omlaag, 
maar ga naar rechts, waar in verschillende 
velden kisten staan en versla de monsters 
net zo lang tot je weer iets krijgt. Ga dan 
pas omlaag en pak de kist waarin zich het 
zwaard bevindt (zeer handig). Ga terug 
naar stage 1 en versla in het meest 
rechtse veld de rood- blauwe ballen. Hier- 
voor krijg je twee gele sleutels, die pas- 
sen op de deuren met het gele sleutelgat 
in stage 2. 

Wie weet wat je in de 'secret basement' 
moet doen? 

P.HANRAETS, SPORENKAMPWEG 55, 5932 BJ 
TEGELEN. 



NAAM 



POKE: 



UI TLE6: 



Beamri der 
Fl appy 



City 

Connecti on 
Billiards 

Crazy Train 
F r o g g e r 
Hyper Sports 
I 

Juno First 
M a g i c a 1 Tree 



Mo nk e y 
A c a d e m y 



&HB437i X aantal bommen 
&H8C6F» 99 je gaat niet dood 

als er een steen 

op je walt 
&HBSB9, X aantal auto's 



S p a r k 3 



&H SC I 4, 
&H8CI5, 
&H8AEE, 
&H93EC, 
&H921 2, 
&H921 3, 
&H 80 B A 7 
&H Al Ci , 
&H A 1 C 2, 
&H Ai C3, 
&H91 48, 
&HB7AF, 
&H97B0, 
&H97B1 , 
&H Al 02, 
&H Al 01 , 



X 
X 
X 
X 

X + 
X-i 
X 
X 

X + 
X-i 

0 

X, 
X + 
X-i 
X 

X-i 



aantal bal 
stage numm 

aantal 1 ev 

aantal 1 ev 

stage n r . 

aantal 1 e v 

aantal 1 e v 

stage n r . 
onsterfl i jl 

aantal 1 ev * 

stage n r . 

aantal 1 evi 

stage n r . 



1 ei 
e r 
e n £ 
e n s 



e n« 
e n £ 



RENE DERKXt YLISSINGEN. 
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AVENGER 



Vecht niet met de spinnen als ze in de 
lucht springen. Pak eerst het AMULET, dan 
de CHARM, anders kun je de CROWBAR niet 
pakken. Het MAGIC ROPE, dat ook op deze 
etage ligt, nog niet pakken. Als je de drie 
voorwerpen hebt (zonder het ROPE), ga dan 
door de zwarte grill naar de eerste onder- 
ste etage en zorg ervoor dat je nog 1 
sleutel hebt. Als je op deze etage bent, 
pak dan eerst de sleutels en daarna het 
POISON, ga naar het luik en ga terug naar 
de startetage waar je nu 't MAGIC ROPE 
pakt en naar het luik gaat voor de vol- 
gende etage. Pak hier alle sleutels en ga 
naar de eerste GUARDIAN (lijkkist), want 
je hebt nu alle voorwerpen om hem dood te 
maken en pak -als hij dood is- het MAGIC 
SWORD. Ga door het luik naar de tweede 
bovenetage en dan naar de derde, bezoek 
de tweede GUARDIAN en dood hem. Ga door 
de grill naar beneden tot je op de onder- 
ste etage bent, zoek de IRON FIST, pak die 
en vergeet niet de sleutels mee te nemen. 
Ga nu weer door de luiken tot je op de bo- 
venste etage bent en dood de derde GUAR- 
DIAN. Pak de CHARM en de schatten, ga 
door de grills naar de allerlaagste etage 
en pak de SCROLLS. Terug naar het start- 
veld en zoek de uitgang. 

Aldus Frances Kee. Hij geeft tevens de 
ontbrekende kaarten en een lijst, die ook 
betrekking heeft op de kaarten in nummer 
18. 



A. Amulet of Protection 

B. Brug 

S. Sleutels 
K. Schatkist 

L. Luik naar hogere etages 
ST. Werpsterren 
Z. Grill naar lagere etage 
Poison 

Aankomst via luik 
Aankomst via grill 
Iron Fist 

Rechts boven (start etage) = Crowbar 
Rechts onder (start etage) = Magie Rope 
In veld 4 is de derde Guardian 
In veld 3 is de tweede Guardian 



onder e^age 



Rechts boven op de startetage boven het 
spinnenhol bij de werpstenen is de uit- 
gang. Onder dit spinnenhol is de aankomst 
via de Grill. Het getal bij S is het aantal 
sleutels. 




ABONNEMENTEN 

EEN ABONNEMENT IS 
VOORDELIGER EN JE MIST GEEN 
NUMMERS! 

Een abonnement op de MSX-Gids kost ƒ 40 - 
per 6 nummers en is te verkrijgen door over- 
making van dit bedrag op Giro: 503601 1 t.n.v. 
J. Herps, Postbus 516, Lelystad. 

Voor België: Bfr. 750 op bankrekeningnummer 
235-0430464-87 bij de Generale Bank te 
Hasselt, t.n.v. J. Herps te Lelystad. 

Abonnementen worden aangegaan voor een 
periode van 12 maanden en de abonnees 
krijgen, voor het verstrijken van het abonne- 
ment, een bericht van de uitgeefster en kunnen 
dan hun abonnement verlengen. Indien een ver- 
lenging niet gewenst is hoeft verder niet te wor- 
den betaald; opzeggen van een abonnement is 
niet nodig, maar wordt wel op prijs gesteld. 

Girobetaalkaarten of Eurocheques (vergeet niet 
het nummer op de achterzijde) voor een abon- 
nement kunnen gestuurd worden naar: 
Uitgeverij Herps, 
Postbus 51 6, 
8200 AM Lelystad. 
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BUBBLE 
BOBBLE 



Lev, : Homesof t 

Mach. : MSX S 

Pmijs: Rompack Fl . 99,= 

Slechts een enkele Keer per jaar 
komt er een echt origineel spel uit 
en nu is dat dan weer gebeurd met 
Bubble Bobble. Dit spel kan ge- 
speeld worden net 1 of 2 spelers 
via een jogsticK of het keyboard. 
Het is een zogenaamd platform 
spel* maar dan uel van een heel 
bijzondere aard: er moet nu eens 
niet geschoten worden* maar de 
speler moet met zijn figuurtje bel- 
len blazen en proberen de vijanden 
in deze bellen te vangen. Lukt dit? 
dan kun je je tegenstanders ver- 
nietigen door deze bellen kapot te 
maken door b.v. erop te springen. 

Met de feestdagen in het vooruit- 
zicht hebben we hier een prima 
spel voor het hele gezin; voor kin- 
deren is het leuk* maar er zitten 
genoeg elementen in het spel om 
ooK de fanaten behoorlijk aan hun 
trekken te laten komen. 

Het spel heeft 100 'normale* 
speelvelden* gevolgd door een 'Su- 
per Bubble Bobble 7 en via de 'con- 
tinue-mode' is het mogelijk om -in 
betrekkelijk korte tijd- door al 
deze velden te wandelen. De moei- 
lijkheidsgraad is hierbij zeer af- 
wisselend. Na enkele lastige velden 
kunnen ineens weer enkele zeer 
eenvoudige velden komen. Uil je 
echter meer uit het spel halen* dan 
kun je je richten op 'Special Bubb- 
les*» 'Extend Bubbles' of 'Bonus 
stages' en van deze laatste zijn er 
heel wat! 

Om in de 'Extend Bubbles' te komen 
moet je de letters verzamelen om 
het woord EXTEND te vormen; een 
lastige bezigheid* waarbij de 'con- 
tinue-mode' beter niet kan worden 
gebruikt* omdat daarmee steeds 
opnieuw wordt begonnen met de 
score 0 zonder verzamelde letters. 

De 'Bonus Stages' zijn alleen be- 
reikbaar door je te richten op 
speciale items die te vinden zijn 
tussen de 19» die in de velden 
ronddwarrelen. Dan zijn er nog 23 
andere items met allemaal hun 
eigen betekenis en* om het lastig 
te* maken* zijn deze laatsten nog 
verdeeld in 'Timer Food'* 'Enemy 
Food\ 'Round Clear Food' en 'Bonus 
Food'. 

Er zijn ca. 10» verschillende tegen- 
standers die allemaal anders rea- 
geren. Zo denk je soms dat je Pac 
Man zit te spelen om vervolgens 
een ronde Space Invaders te moe- 
ten doorlopen. Ook Eggerlandachti- 
ge situaties komen voor in dit spel. 

Dat ik dit allemaal weet komt echt 
niet omdat ik tot diep in de nacht 
dit spel heb zitten spelen* maar 
omdat de leverancier Homesoft erin 
is geslaagd deze cartridge uit te 
brengen met een goede en uitge- 
breide (Engelse) handleiding» welke 
rijkelijk is voorzien van illustra- 
ties en niet veel afwijkt van de 
Japanse handleiding. Prima Home- 
soft» ga zo door! 



En> dan ondervinden we hier op de 
redactie weer iets wat de laatste 
tijd nog maar zelden voorkomt bij 
spellen: Bubble Bobble is versla- 
vend! Ik heb dan wel gezegd» dat ik 
het spel niet tot diep in de nacht 
heb gespeeld» maar de momenten 
dat het gespeeld werd» bleek toch 
steeds weer hoe boeiend dit spel 
is en hoe moeilijk het is om je er 
van los te maken. Je wilt toch 
steeds weer even het volgende 
level zien en proberen dit te door- 
lopen. Dat zal dan ook wel de reden 
zijn» dat in de handleiding vermeld 
staat dat je -na lang spelen- 5 
tot 10 minuten pauze moet nemen 
i.v.m.. de gezondheid en zo ver mo- 
gelijk; van het beeldscherm verwij- 
derd moet zitten tijdens het spe- 
len. 



En zo hebben we dan eindelijk weer 
eens een topspel erbij. De beelden 
zijn goed» maar zouden» voor MSX-2» 
nog net iets mooier kunnen. De mu- 
ziek en de geluidseffecten zijn 
prima» de spelkwaliteit staat op 
een zeer hoog peil» de handleiding 
is goed en de prijs voor deze me- 
garom cartridge is. ook niet slecht. 
Een aanrader voor de Kerst of de 
Sinterklaas» voor zowel beginner 
als gevorderde en voor zowel jong 
als oud. 

BEELD : X X X X 

GELUI D : XXXXX 

SPELKNALI TEI T: XXXXX 
DOCUMENTATIE : XXXX 
PRIJS : XXXX 



KOOPTIPS VOOR DECEMBER 



Hier hebben we dan nog wat leuke tips voor de ko- 
mende feestdagen. 4 Spellen zijn aanmerkelijk in 
prijs gedaald en worden voor FL. 14,95 op disk aanqe- 
boden: ALPHAROID, THEXDER, PROTECTOR en ZANAC. 
Het betreft hier allemaal MSK 1 versies en het zijn 
stuk voor stuk prima spellen. Een recensie van 
ZANAC vind je in nr. 11- en van ALPHAROID in nr. 13 
van de MSX-Gids. En geloof het of niet: voor die 
prijs krijg je ook nog de verpakking en de handlei- 
ding. 

Voor de spelfanaten is er ook HET GROTE MSH 
PEEK'S, POKES EN TRUUKS BOEK. Dit boek staat boor- 
devol kaarten en hulpmiddelen om -vooral (arcade)ad- 
ventures- tot een goed einde te brengen. De prijs is 
FL. 13,75 en hiervoor krijg je zeer veel informatie 
over diverse -vooral wat oudere- spellen. 

Wie zoekt naar moeilijke 'klim en klauter' spellen is 
zojuist CHUBBY GRISTLE verschenen. Dit spel -voor 
zowel MSK1 als 2- is uitgebracht op cassette en dus- 
danig lastig, dat we er maar geen recensie over heb- 
ben geschreven, omdat we niet in staat waren om 
maar iets in het eerste veld te < bereiken; snappen 
doen we het ook niet goed, maar het ziet er wel 
prima uit! Kijk even bij je software leverancier! 
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MSX 
Kaartspellen 



Ti tel : 


Pat i ence 




Lev. s 


Morwoad 


sof t wame 


Mach. : 


MSX 1&2 




Piri j s: 


CAS. Fl 


. 9, 95 


Ti tel : 


K 1 averj a 


s s en 


Lev. s 


Ti mesof t 




Mach. : 


MSX ï&e 




Pi~i J s: 


CAS. Fl 


. 1 4, 95 




Dl SK Fl 


. 1 9, 95 


Dit keer 


twee spellen 


in 1 recen- 



siei. omdat er over dit soort pro- 
gramma's weinig te vertellen valt. 

Patience 
Dit eenvoudige spel komt uit Enge- 
land en de cassetteflap bevat dus 
alleen Engelse tekst» evenals de 
spelbeschri jving die via het beeld- 
scherm verkregen kan worden. 
Geluid is bij dit soort spellen niet 
nodig* maar zou best kunnen op een 
MSX. Muziek ontbreekt en geluids- 
effecten zijn nauwelijks aanwezig. 
Het beeld is prima en het spel kan 
worden gespeeld met keyboard? 
joystick of tracker ball. De bestu- 
ring geschiedt d.m.v. een aanwijs- 
handje? dat over het scherm ver- 
plaatsbaar is. Dit handje werkt al 
als het langs de onderrand wordt 
verschoven. Er hoeft niet naar 
boven? naar de onderste kaart van 
de rij worden geschoven. De speel- 
kaarten zijn mooi getekend en voor 
dit geringe bedrag is het een heel 
leuk programma. 

Klaverjassen 
Dit puur Nederlandse spel wordt 
geleverd met een Nederlandse 
handleiding en een spelbeschri j- 
vingj voor de nieuwelingen. Er zijn 
vele versies van dit spel en hier is 
gekozen voor het 'gewone' klaver- 
jassen met "roem op tafel". Er zijn 
twee levels? waarbij level i (begin- 
ners) eigenlijk nergens goed voor 
is. Bij deze versie speelt de com- 
puter zo slecht (meteen uitkomen 
met een lö of de slag van je maat 
-onnodig- troeven)? dat dit level 
niet eens leerzaam is. Level 2 is 
goed en ik heb de tegenpartij eens 
slim een pit zien halen? waarbij ik 
me afvroeg of er niet stiekem in 
mijn kaarten werd gekeken. 

Klaverjassen wordt opgestart met 
een voorzichtig muziekje? maar 
verder ontbreekt het geluid. Het 
beeld is prima en de besturing 
loopt lekker soepel. De kaarten 
zijni minder fraai dan bij Patience 
maar daardoor misschien iets dui- 
delijker. Het leukste bij deze vorm 
van klaverjassen is? dat het ver- 
velende werkje van het bijhouden 
van de puntentelling nu eens niet 
gedaan hoeft te worden; hiervoor 
zorgt de computer en daardoor 
meteen foutloos. 





i ■ ■ 




Patience is al een 1 persoons spel? 
maar ook klaverjassen kan alleen 
maar door 1 speler gespeeld 
worden,. Mie van kaartspellen houdt 
en op de komende lange winter- 
avonden in z'n eentje zin heeft in 
een potje? kan zich rustig beide 
spellen aanschaffen. 



BEELD 
GELUI D 

SPELKWALI TEI T 
DOCUMENTATI E 
PRI JS 



XfcXX 
XX 

XXXX 
XX XX 

xxxxx 



SOFTWARE 



Bij de softwarerecensies wordt een beoordeling 
gegeven met sterren, welke de volgende waardes 
vertegenwoordigen: 

XXXXX - ZEER GOED 

XXXX = GOED 

XXX - REDELIJK 

XX = MATIG 

X = SLECHT 
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SCRIBE 
Tekstverwerker 

De oplettende MSK-koper weet dat deze 
test niet over een nieuw programma gaat: 
SCRIBE tekstverwerking werd in 198G al 
door Aackosoft op de markt gebracht. Nu 
heeft Methodic Solutions de verantwoording 
op zich genomen voor de verspreiding van 
deze 'gouwe ouwe'. Nieuw is echter wel de 
prijs, die nu ongeveer 159,00 bedraagt. Twee 
jaar geleden moest dit programma nog 
259,00 gulden opbrengen. Ook toen was het 
al ruim z'n geld waard. Waarom? Dat zal ik 
u in onderstaand verhaal duidelijk probe- 
ren te maken. 

— Eer^s-fc die zure si jnpD el- 
Allereerst de verpakking, dan hebben we 
het slechtste maar weer gehad. Het pro- 
gramma wordt geleverd in een afschuwelijke 
doos, die gemaakt is om zowel een diskette 
van 3,5" als van 5,25" te kunnen bevatten. 
De doos heeft een onhandige afmeting en 
is dan ook zeer geschikt om direkt weg te 
gooien. Waarom gebruikt men toch niet die 
mooie dozen die bijv. Filosoft voor z'n pro- 
gramma's Diskit e.d. toepast? Dat toont 
beter en biedt de koper een goede bewaar- 
plaats. 

Bij deze in prijs verlaagde release 2.2 was 
geen handleiding ingesloten. Dat dacht ik 
tenminste, totdat ik de inhoud van de 
schijf bekeek. Daarop bevond zich een 
tekst, die ik op mijn printer heb uitge- 
draaid en die me inderdaad iets vertelde 
over SCRIBE. Nu ben ik vrij bedreven in 
het omgaan met tekstverwerkings program- 
matuur, maar voor een 'groentje' op dit ge- 
bied is een dergelijk verhaal echt te 
mager. 

— De werkomgeving- 

Vanwege de omvang van het pakket is m«n 
op een MSH computer met diskdrive aange- 
wezen. Dit mag zowel een MSH-1 als MSH-2 
computer zijn. Een printer is natuurlijk on- 
ontbeerlijk om nuttig gebruik te maken van 
een dergelijk stuk software en een goede 
monitor kan ook geen kwaad. Voor MSK-2 
bezitters zonder monitor is er nog wel de 
mogelijkheid om in een 40-koloms mode te 
werken, zodat de ogen het iets minder te 
verduren krijgen. 

—In den beginne- 

Na het opstarten van SCRIBE komen we op 
een rustig en verzorgd scherm, waar we 
o.a. aantreffen: 

- de cursorpositie in rij en kolom aange- 
duid 

- de datum (bij MSH-2 automatisch, voor 
anderen handmatig in te stellen) 

- de naam van de tekst die we in bewer- 
king hebben 

- de naam van het menu waarin we ons be- 
vinden 

- een schaalverdeling aan boven- en on- 
derkant van het scherm, waarop twee wij- 
zertjes aangeven op welke positie we ons 
begeven 

- de betekenis van de funktietoetsen 



— Menu besturing — 

Het programma is geheel menu-gestuurd. 
Dit werkt als volgt: men kiest een hoofd- 
menu met behulp van de funktietoetsen 1 
t/m 5, of men 'wandelt' door de menu's 
d.m.v. ESCAPE en SELECT. Eenmaal in het 
goede menu aangekomen kan men met STOP 
in een hulpscherm komen. Hierin staan de 
belangrijkste funkties die op het betref- 
fende scherm aktief zijn. Met ESCAPE, 
SELECT en C0NTR0L kiest men veelal een 
submenu, dat een pull-down menu is. Het 
wordt over de tekst heen geprojekteerd, 
totdat men zijn/haar keuze gedaan heeft. 
Dit alles werkt bijzonder aangenaam en 
vooral ook snel. Het annuleren van een 
funktie gebeurt meestal door ESCAPE in te 
drukken. 

Een funktie waar ik een groot voorstander 
van ben is de screendump facility op alle 
schermen, waarmee we van elk scherm een 
afdruk op de printer kunnen maken. Dit is 
gelukkig aanwezig. 

De hoofd- en submenu's die we tegenkomen 
zijn de volgende: 

INIT 

- Lagout: hierin geeft men op hoe in grote 
lijnen de indeling van de tekst moet zijn 
tijdens verwerking en afdrukken. Opties 
zijn o.a. het aantal regels per inch, het 
aantal regels per pagina, de kantlijninstel- 
ling, de tabstops, de positie van de kop- 
en voettekst, deze teksten zelf, de manier 
waarop de pagina's genummerd moeten wor- 
den, de beveiliging Cfor your eges onlg, of- 
wel een wachtwoord gestuurde beveiliging 
die het mogelijk maakt teksten gekodeerd 
weg te schrijven, onleesbaar voor ai te 
nieuwsgierige hobbyisten), etc. 

- Text: men kan de tekst, na bevestigd te 
hebben dat u het inderdaad zeker weet, 
uit het geheugen van de computer verwij- 
deren. 

- Dir: staat voor directory, het Engelse 
woord voor inhoudsopgave. Men kan hier- 
mee de inhoud en de nog vrije ruimte zien 
op de diskette. 

- Printr: op de programma-disk worden een 
aantal files met printerkodes voor o.a. 
MSK, Sony, Toshiba en Epson meegeleverd. 
Men kan 1 van deze files inladen om een 
goede werking van de printer te garande- 
ren of zelf een dergelijk bestand aanmaken 
vanuit SCRIBE. Daardoor is het in principe 
mogelijk met elke printer te werken. 
SCRIBE ondersteunt alles wat uw printer 
aankan. 

- DATE: de MSH-2 computers beschikken 
over een klokchip, waarin o.a. de systeem- 
datum wordt bijgehouden. Om voor MSK-1 
gebruikers toch de mogelijkheid te schep- 
pen om hun files te dateren, kan men zelf 
de datum opgeven, die dan op schijf wordt 
bewaard. 

LOAD 

New: men kan een bestaande tekst 
inladen om wijzigingen aan te brengen 

- Merge: om een tekst te merge'n (samen- 
voegen) met een andere tekst die al in het 
geheugen staat 

- Dir: directory. 
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EDIT 

Edit: hier vindt de eigenlijke tekstinvoer 
plaats. De funktietoetsen bewijzen dat ook 
al" u krijgt allerlei verplaatsingsfunkties 
voorgeschoteld, waarmee u bijvoorbeeld een 
woord naar rechts kunt springen of ineens 
naar het begin of het einde van de tekst. 
In het Editmenu zit een aantal menu s ver- 
scholen: 

- SELECT: brengt ons in de blokfunkties en 
zoek/vervang mogelijkheden. U kunt blok- 
ken verplaatsen, wissen, kopiëren, etc. le- 
vens is een bevredigende zoek- en- ver- 
vang routine in dit menu ondergebracht. 
Ook goed is de mogelijk om een bepaalde 
string in de hele tekst van hoofdletters 
naar kleine letters (of andersom) te kon- 
verteren. 

- ESCAPE: een menu om de typesetting te 
veranderen. Dit houdt o.a. in dat we in de 
tekst van lettertype kunnen veranderen. 
De keuze daarbij kan bijvoorbeeld vallen op 
onderstrepen, vet of schuin afdrukken, 
etc. Ook het aantal karakters per inch kan 
gekozen worden. Uniek is de mogelijkheid 
om van penkleur en karaktergrootte te 
wisselen. Dit is niet bedoeld om mijn oude 
vertrouwde MSK printer te besturen, alswe 
voor de aansturing van een plotter. Dit zal 
op MSK gebied weinig voorkomen, maar toen 
een prima idee om dit in te bouwen. Dat 
qeeft je weer het fijne gevoel dat men 
goed nagedacht heeft over de struktuur 
en de mogelijkheden van dit produkt. 

- CONTROL: het formaat van de tekst. 
Daarmee wordt dan niet de omvang in re- 
qels bedoeld, maar de puntjes op de i die 
üw tekst er net even beter uit laten 
sprinqen dan voorheen. Mooie en bruikbare 
mogelijkheden zijn o.a. het benadrukken 
van tekstpassages door middel van een 
vertikale streep in de kantlijn, het auto- 
matisch genereren van spaties na net in 
tupen van een leesteken Czeg niet dat u 
dat nooit vergeet!), centreren van een 
reqel, het tellen van het aantal ingetypte 
woorden, de mogelijkheid om een proefaf- 
druk op het scherm te maken, waarbij de 
computer tracht de uiteindelijke uitvoer op 
de printer zoveel mogelijk op het scherm 
na te bootsen, zodat u alvast een visuele 
kontrole kunt toepassen, etc. Echt sterK 
vind ik de manier waarop men de teKst 
kan indelen in hoofdstukken en paragrafen, 
waarvan het programma zelf een ^^JL""" 
opqave kan aanmaken, die zelfs de pagina- 
nummers bevat van het betreffende stukje 
tekst. Fantastisch! 

SAVE 

- Date: om de systeemdatum nog aan te 
passen alvorens u de tekst met die datum 
op schijf zet. 

- Save: schrijft de tekst weg onder de 
naam die u opgeeft Cde extensies worden in 
alle save funkties vanzelf toegevoegd, bij 
teksten is dat bijv. 

- Dir: directory. 

- Rename: hiermee kunt u een reeds opge- 
slagen tekst een andere naam geven. 

- Delete: geeft u de mogelijkheid niet meer 
nodige teksten van schijf te verwijderen. 
Een en ander is overigens wel gebonden 
aan een wachtwoord als de teksten voor- 
zien zijn van een beveiliging. 



PRINT 

- Print: start het printen van de gekozen 
tekst op. 

- Proof: maakt een proefafdruk op het 
scherm, zodat kontrole vooraf nog mogelijk 
is. 

- Spool: als u een ingewikkelde tekst in el- 
kaar zet, kan de computer vrij veel tijd 
nodig hebben om de tekst geschikt te ma- 
ken voor afdruk op de printer. Bent u nu 
van plan de tekst meerdere malen af te 
drukken en wilt u dit niet achter elkaar 
doen, dan kunt u de kant en klare print- 
file tijdelijk op disk opslaan. Dit noemen we 
spooling. Deze tekst kan hierna net zo 
vaak uitgeprint worden als u wenst, zonder 
dat het telkens zoveel tijd vergt. 

- Batch: om meerdere bestanden achter el- 
kaar te verwerken op de printer. 

- Setup: regelt nog een aantal opties die 
het afdrukken beïnvloeden: wilt u in near- 
letter- quality printen, hoeveel kopien zijn 
er nodig, op welk nummer moet de pagina- 
nummering starten, etc. Een extraatje van 
dit pakket is de chaining: u kunt teksten 
dezelfde naam met volgnummers geven, die 
in oplopende volgorde achter elkaar uitge- 
print zullen worden als u de chain- optie 
inschakeld. Hoewel SCRIBE 'slechts 32768 
karakters tegelijkertijd in het geheugen 
kan bevatten, is het dan toch mogelijk een 
keten van teksten te maken waarmee, b.v., 
een hele MSH- Gids gevuld zou kunnen wor- 
den. 

— Konklusie — 

Je moet even werken met SCRIBE om alle 
funkties optimaal te benutten en ik ben 
als Tasword fanaat niet echt enthousiast 
beqonnen aan het testen van het pakket. 
Nu ben ik flink omgeslagen en ik moet 
zelfs oppassen dat ik mijn andere tekst- 
verwerkers niet vergeet nu ik weet wat 
SCRIBE allemaal kan! 

Het pakket is kompleet, kan door de hob- 
byist tot en met de professional gebruikt 
worden en is zeer vriendelijk in gebruik. 
Het is gevaarlijk dat er geen backup- faci- 
liteit is, want er wil nog wel eens iets mis 
gaan met een schijfje. De handleiding en de 
verpakking zijn ook niet je- van- het Dat 
op de koop toe genomen kan ik stellen dat 
SCRIBE ronduit zijn geld waard is en vooral 
voor de eigenaars van de database van 
Aackosof t Cwaarmee men gegevens kan uit- 
wisselen!) een uitstekende uitbreiding van 
de gebruikerstoepassingen kan zijn. 

Richard Altenburg. 

CN.v.d.r. Wie, zoals wij van de MSK-Gids re- 
daktie, de files van een tekstverwerker 
moeten kunnen overzetten naar een ander 
programma, zoals een D.T-P- P^9™^ 
moet er rekening mee houden dat SCRIBL 
neen ASCII- files produceert. Er moet, in 
zo'n qeval, flink aan de files worden ge- 
sleuteld om ze leesbaar te maken voor an- 
dere programma's. Wij blijven dus voorlopig 
nog maar vriendjes met Tasword. Verder 
zijn wij het geheel met Richard eens.) 
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TRANTOR 

The Last Storm Trooper 

Lev. : Micro City 
Mach. : MSX 1 & E ( 64K) 
Prijs: CAS. Fl . 39,= 



Dit spel is zeker niet origineel, 
maar nog net niet wan het type 
'dertien in een dozijn'. Het spel 
begint met 8 tamelijk kleine velden 
en in elk veld staat munitie voor 
het uapen, een kast met -elke keer 
verschillend- een voorwerp en een 
terminal, waar een letter verkre- 
gen kan worden. Dit laatste ge- 
beurt met een 'random'» zódat elke 
verkregen letter per spel ver- 
schillend! is en codes uitwisselen 
met dit spel dus niet mogelijk is. 
Met deze 8 letters moet een woord 
worden gevormd» dat betrekking 
heeft op computers en dit woord 
dient in een speciale terminal in- 
gevoerd te worden? waarna een 
'beam' komt., Verder weten we niets 
uit de handleiding en zijn we ook 
niet zover gekomen» zodat we ons 
tot de beginvelden moeten beper- 
ken bij deze beschrijving. 

Deze eerste velden zijn van rede- 
lijke kwaliteit en alleen Trantor is 
kwalitatief goed; de rest doet een 
beetje houterig aan. Het geluid 
stelt niet veel voor. De besturing 




(joystick of keyboard) is goed en 
het is tamelijk eenvoudig om de 
eerste 3 a 4 levels door te komen. 
Daarna wordt het ietsje moeilij- 
ker* maar in een uurtje spelen kom 
je al een heel eind. 

Dit spel heeft dan ook het voor- 
deel» dat het mede geschikt is voor 
de minder geoefende speler» want 
het gebeurt de laatste tijd maar al 
te vaak» dat beginners zich meteen 
spellen als Salamander aanschaf- 
fen om tot de ontdekking te komen» 
dat ze niet verder raken dan het 
startveld. 



Trantor is alleen leverbaar op 
cassette en gaat vergezeld van 
een handleiding in het Engels» 
Duits en Frans» een apart velletje 
voor de MSX versie en een blaadje 
met tips bij mogelijke problemen 
met het laden. 

Een aanrader voor de spelfanaat in 
opleiding» niet meer dan aardig 
voor de gevorderde killer. 

BEELD : XX* 

GELUID : XX 

SPELKHALI TEI T: XXX 

DOCUMENTATIE ! XXXX 

PRIJS : XXX 



GUTTBLASTER 



Lev. ï Premium software 
Mach. : MSX 1 & £ ( 64K) 
Prijs: CAS. Fl . 89,90 
Dl SK Fl . 34, 90 



Er worden voor vrijwel alle merken 
computers- bergen schietspellen op 
de markt gebracht en de makers 
van deze software zijn -en dat is 
toch wel erg knap- bijna altijd wel 
in staat om toch weer betere» 
mooiere» snellere of op een andere 
manier aantrekkelijker arcade ga- 
mes uit te brengen» die voldoende 
aktie bevatten om kopers te trek- 
ken. Premium Software is hierin» 
wat mij betreft» ook weer geslaagd. 

Moeilijk is Buttblaster niet» maar 
voor al diegenen» die bij bijvoor- 
beeld Salamander niet verder ko- 
men dan het startveld» is dit een 
uitstekend spel. Het spel lijkt 
sterk op Hype en zou best van de- 
zelfde maker kunnen komen» maar 
kwalitatief is het net ietsje beter. 
Nu zullen onze vaste lezers wel 
weten» dat ik een versterker op 
mijn MSXje heb aangesloten en bij 
dit spel kan iedereen» die dit ook 
heeft» genieten van de uitstekende 
geluidseffecten» die zondermeer 
vergelijkbaar zijn met die uit de 
speelhallen. 




Uiteraard vliegen we weer rond met 
een 'battlef ighter' (of geef het 
toestel maar een willekeurige ou- 
terspace naam) en moeten we al- 
lerlei obstakels wegschieten. Er 
zijrii meerdere wapens mogelijk en 
sommige tegenstanders zijn alleen 
maar te raken met een bepaald wa- 
pen. Dit tussentijds 'vangen' van 
andere wapens geeft het spel een 
extra dimensie. Er wordt gevlogen 
over een snel scrollend scherm en 
de beelden zijn van prima kwaliteit; 
zelfs* de kanonnen van ons toestel 
bewegen bij elk schot. 



Ik vind dit een ouderwets lekker 
schietspel (niet te makkelijk» niet 
te moeilijk) voor een leuke prijs 
met (zeker voor MSX-i) goede beel- 
den en uitstekend! geluid. Zelfs een 
handleiding wordt erbij geleverd 
(Duits + Engels en vrijwel overbo- 
dig). 



BEELD 
GELUI D 

SPELKWALI TEI T 
DGCUMENTATI E 
PRI JS 



XXXX 

XXXXX 

XXXX 

XXXX 

XXXX 
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PINBALL 
BLASTER 



Lev. 

Mach. 

Pri J i 



Premi u m 

soft ware 

MSX 1 &e ( 64K) 

CAS. Fl . 29, 90 

Dl SK Fl . 34,9© 



Van Premium software is weer een 
serie oude softuare in een nieuw 
Jasje op de markt gekomen, waar- 
van deze flipperkast er een is. 
Gelukkig worden deze klassiekers 
regelmatig verbeterd? zodat ze 
toch steeds aantrekkelijk blijven. 

De echte f lipperfanaat zal enig- 
zins teleurgesteld zijn, wanneer ik 
nu zeg dat deze Pinball geen flip- 
pers heeft, doch gespeeld wordt 
door middel van een kanon met ko- 
gels., Met deze kogels moet de bal 
in de juiste banen worden geleid 
voor het verzamelen van punten en 
dat is -vooral in het begin, wan- 
neer je voor het eerst speelt- nog 
behoorlijk; lastig. Het schieten op 
dei bal is weer een nieuw element, 
dat dit spel toch voor een groot 
aantal MSX-ers aantrekkelijk zal 
maken en 'normale 7 flipperkasten 
zijn er al legio. 

Verder heeft het spel alle ingre- 
diënten van de vertrouwde flipper- 
kast, Het scherm ziet er prima uit 
en er vinden, af en toe, verande- 
ringen plaats. Er is erg veel bewe- 
ging en kleur. Zeker voor MSX-i, 
hebben we hier toch een heel aar- 




dig spel, dat voorzien is van de 
nodige muziek en geluidseffecten. 
Er kan gespeeld worden met maxi- 
maal 4 spelers ert de bediening kan 
met de cursortoetsen of met een 
joystick plaatsvinden. 

Beeld en geluid zitten boven de 
middelmaat en met de prijzen gaat 
het ook de goede kanfP 'op: deze 
software is zeker niet duur en 
eindelijk is het prijsverschil tus- 
sen cassette en diskette kleiner 
geworden. 

Pinball Blaster zit in een aantrek- 
kelijk doosje verpakt en wordt ge- 
leverd met een handleiding in het 



Duits en in het Engels. Het ontbre- 
ken van een Nederlandse handlei- 
dinq is geen ramp, want de bedie- 
ning is super eenvoudig. 

Het schijnt tegenwoordig mode te 
zijm om de eenvoudigste spelletjes 
te 1 voorzien van een science fic- 
tionachtig verhaal. Ook in deze 
handleiding ontbreekt zo'n waan- 
zinnig vertelsel niet , 

BEELD : XXXX 

GELUI D : XXXX 

SPELKWALI TEI T: XXXX 
DOCUMENTATIE : XXXX 
PRIJS 



VENOM 
STRIKES 
BACK 



Lev. : Mi ctto City 

Mach. : MSX 1 & £ 

Pri jss CAS. Fl . 39, = 

Venom strikes back is de opvolger 
van MASK I en II en daarom vinden 
we op het startbeeld ook MASK III 
vermeld, in de rechter onderhoek. 
De beide eerdere versies waren 
niet erg interessant, maar VENOM 
is al aanmerkelijk beter. Ondanks 
het feit dat het hier weer een spel 
betreft, dat voor meerdere compu- 
ters is ontwikkeld, worden we nu 
eens niet afgescheept met matige 
graphics en enkele piepjes voor de 
geluidseffecten. 

Grafisch is het een goed spel, dat 
voorzien is van uitstekende muziek. 
De geluidseffecten zijn wat min- 
der, maar zeker niet slecht. De 
besturing geschiedt met toetsen 
naar keuze; te definiëren in het 
startmenu en het spel kan worden 
geSAVEd met passwords, die tij- 
dens het spelen worden verkregen. 
De bediening is erg goed en soepel 
en ook de beelden alsmede de an- 
dere figuren bewegen zeer soepel 
over het scherm. 






Het spel is verder overbekend: 
"redt Scott en breng hem terug 
naar de aarde". Dit alles gebeurt 
al springend, bukkend en schietend 
en uiteraard zijn de velden weer 
vergeven van ettertjes, die -al 
schietend en bommen gooiend- pro- 
beren jouw opdracht te laten mis- 
lukken. Je verplaatst je buiten of 
binnem en er zijn weer liften en 
teleports, zodat dit spel nog het 
meeste lijkt op Starquake en ver- 
volgens op Army Moves. De lezers 
die deze spellen kennen, hebben al 
een goede indruk van wat ze te 
wachten staat. 



De handleiding bestaat uit een 
flink vel glanzend papier met hier- 
op een stripverhaal waarin ook en- 
kele aanwijzingen te vinden zijn; 
wel alleen in het Engels en het 
Frans. 

Een goed spel, maar -in vergelij- 
king] met soortgelijke spellen- net 
een paar gulden te duur en helaas 
niet op disk verkrijgbaar. 

BEELD : XXXX 

GELUID : XXXX 

SPELKWALI TEI T'. XXXX 

DOCUMENTATIE : XXXX 

PRIJS : XXX 
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TOPPLE ZIP 



Le v . : 
Mach. : 
Pri j ss 



I nf ogrames 
MSX 2 

Rüinpack Fl . 



59, = 



Topple Zip voor de MSX-1 is er ook* 
maar die hebben ue al beschreven 
in 6ids nr. 14. Deze MSX-2: versie is 
qua schermindeling en spel precies 
hetzelfde en de enige verschillen 
vinden ue in de grafische kwalitei- 
ten en de handleiding. Deze hand- 
leiding is netjes uitgevoerd en be- 
vat ook een Nederlands gedeelte; 
iets dat ue zelden aantreffen bij 
Japanse rompacks. Dan maar met- 
een even naar de prijs* die lager 
is dan ue geuend zijn voor een me- 
garom cartridge. 

Het spel: Je neemt deel aan een 
race en de uinnaar mag een prin- 
ses trouuen. De race vindt plaats 
met vliegtuigjes en je hebt dus di- 
verse concurrenten. Je vliegt over 
allerlei verschillende landschap- 
pen? die bereikbaar zijn door tun- 
nels,. Je kunt op capsules schieten 
en als je deze raakt verschijnen 
er vooruerpen* die je kunt oppak- 
ken. Er zijn 18 verschillende voor- 
uerpen en de concurrentie aast er 
uiteraard ook op. Met deze mede- 
dingers kun je botsen» uat tot ge- 
volgi heeft dat zij hun vooruerpen 
verliezen!- zodat jij die ueer kunt 
oprapen. Natuurlijk kan het omge- 
keerd ook* dus regelmatig ben je 



san 

pf, 




een gedeelte -of alles- uat je 
moeizaam hebt verzameld ueer 
kuijt. 

Een zeer boeiend behendigheids- 
spel* dat nu eens niet lastig is 
door de snelheden* maar door het 
gerommel van al die andere vlieg- 
tuigjes. Het scherm scrolt een tik- 
je houterig* maar de rest van het 
spel is leuk en ziet er prima uit. 
Het speelscherm is ook nog verge- 
ven van metertjes en balkjes* 
uaarim allerlei gegevens te vinden 
zijn. Hier en daar vinden ue tus- 
sen deze metertjes nog uat Japan- 
se tekens* maar ondanks dat is het 



spel prima te volgen. Topple Zip kan 
zou el met joystick als met het 
toetsenbord uorden gespeeld en is 
ook prima geschikt voor de uat min- 
der doorgeuinterde speler. 

BEELD s XXXX 

GELUID : XXXX 

SPELKWALI TEI T: XX XX 

DOCUMENT ATI E : XXXXX 

PRI JS : XXXXX 



Le v . 
Mach. 

Pri jf 



GUARDIC 



Homesof t 

MSX 1 8f 2 

R ompack Fl . 99, 



Mijn geluk kon niet op toen ik bij 
het openmaken van deze doos al- 
ueer een Nederlandse handleiding 
aantrof! Gaan ue echt de goede 
kant op of hebben ue toevallig 
tuee uitzonderingen op deze pagi- 
na? 

6uardic stamt nog uit het vroege 
rompack tijdperk (1986) en is dan 
ook geen megarom* maar heeft des- 
ondanks uitstekende grafische 
kwaliteiten met prima muziek en ge- 
luid. De spelkualiteit staat ook op 
een hoog niveau en ue hebben hier 
te maken met een puur schiet- en 
behendigheidsspel. De besturing 
geschiedt d.m.v de cursortoetsen 
of een joystick en dient om een 
vliegtuig door een doolhof te lei- 
den. Je speelt steeds in slechts 1 
veld! van deze doolhof en moet hier 
alle vijanden vernietigen* voordat 
je naar het volgende veld kunt. Je 
hebt keuze uit drie 'golven* die af- 
gevuurd kunnen uorden en 6 opties 
die de vuurkracht vergroten of je 
beschermen. Deze opties (en de 
golven) kosten echter uel 'pouer* 
en daar heb je maar heel ueinig 
van* dus voorzichtigheid is gebo- 
den. Uiteraard kun je pouer bij- 
krijgen* evenals extra schepen en 
een 'Randar'* maar dat alles is nog 








002 



behoorlijk; lastig en is mij -in de 
korte tijd dat ik gespeeld heb- nog 
niet gelukt. Ook uordt er in de 
handleiding melding gemaakt van 
geheime funkties* die je zelf moet 
ontdekken en uorden tevens tips 
gegeven voor de eerste 4 velden. 
Meteen al in het titelscherm zit 
een verborgen mogelijkheid om een 
oefenoptie in te schakelen. Ook' 
deze heb ik nog niet gevonden* dus 
er valt nog heel uat te beleven met 
deze cartridge. 



Verder kan ik alleen nog maar zeg- 
gen* dat dit ueer eens een uitste- 
kend verslavend schietspel is en 
de fanaten moeten maar snel een 
kijkje gaan nemen in de uinkel. Ik 
ga het zeker nog vaker spelen. 

BEELD : XXXXX 

GELUID ! XXXX 

SPELKWALI TEI T: XXXXX 

DOCUMENT ATI E : XXXXX 

PRIJS : XXXX 
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DE MINI GIDS 

In deze rubriek kunnen onze lezers advertenties 
plaatsen, mits NIET VAN COMMERCIËLE AARD! 
Handelaren kunnen onze advertentietarieven aan- 
vragen. 

De redactie behoudt zich het recht voor adverten- 
ties te weigeren. Inzendingen kunnen gestuurd wor- 
den naar Postbus 516, 8200 AM Lelystad en die- 
nen voorzien te zijn van naam, adres en evt. tele- 
foonnummer. Advertenties met alleen postbusnum- 
mer of antwoordnummer worden niet opgenomen. 



Salamander, Maze Of Galious, Metal Gear, Penguin Adv., Game Master en Vampire Killer. 
Allen origineel FL. 50,= p.st. Tel: 03410- 14410 (Ben). 

Song HB-F7ÜGP MSH-2 (Ned. versie) incl. muis en zeer veel software FL. 1100,=. Tel: 075- 
351523. 

Org. Game Master FL. 55,= en org. Ease & Ease FL. 50,=. Tevens org. Salamander te ruil 
tegen org. Fl- Spirit. Corne de Laat, Kerkweg 8, 5504 BM Veldhoven. Tel: 040- 538831. 

Philips VG8230 MSH-B met datarec, ingeb. diskdrive en 10 diskettes met spellen. FL. B50,=. 
Tel. 01621- 20867. 

Kegboard NMS 1160 + Music Module + keyboard cursus met cassettes. Kompleet FL. 450,=. 
Bei tussen 18.00 en 13.00 uur: 076- 217101 

Song HB-70QD (MSH-2, 256K Ram, DS- diskdrive en muis) incl. SCART kabel en software 
to.a. Konami). Ook evt. Philips RGB kl. mon. Tel: 08855- 73957. Na 17.00 uur (Henriko). 

Originele BASICQDE III cassette FL. 5,=. Voor woensdag Radio 5 17.40 uur en zondag 22.40 
uur Ed Beemsterboer, Dr. Haverkampstraat 21, 1364 BM Heemskerk. Tel. 02510- 38417. 



Deep Forest (origiginele Japanse Megaromï. Tevens: Zoot, Robot Wars, Star Wars, 
Norseman en Uchi Mata. Ook allen origineel. Tel. 0833B- 52672. Vragen naar Salvatore. 



AANGEBODEN 



Philips MSH-2 NMS 8220 ♦ diskdrive Song HBD-50. Tel. 0182E- 11737 

Ik heb 2 joysticks te koop en zoek de spellen: Outrun, Topgun, Alpharoid, Spitfire 40, 
Airwolf en Nemesis 2. Tel. 03200- 34309 (vragen naar Marco) of Oostkaap 22, 8224 EK 
Lelystad. 



Philips NMS 8250 MSH-2 (9 mnd. oud ) FL 950,=. Philips VS 0080 ki. mon. (9 mnd. oud) FL 
650,=. Arcade Turbo joystick (2 vuurknoppen, 1 mnd. oud) FL 40,=. Alles samen met 
diskettebak met software Fl. 1550,= Tel. 08370- 20378 (Arjan). 



Wegens aanschaf PC (5.25 drive) te koop: 55 stuks 3.5 inöh diskettes met MSK-1/2 
software in een koop. P.n.o.t.k. Tel. 075- 171157. fYKt yKi tqQÖ 

Z.g.a.n. Seikosha SP1Q00MK matrix printer en te koop of te ruil org. software. Johan 
Mulder, Borgweg 85, 9G08 TG Westerbroek. Tel. 05904- 1938 

Philips NMS 8245 M5H2 met org. Ease. 1/2 jaar oud. Tevens Metal Gear (org.). Tel. 05900- 
12376 

Canon M5H computer + datarec. + 2 joysticks + boeken en ruim 300 progr. op tape. In een 
koop Fl. 400,=. Tel. 05240- 13042 (Marcel). 

Philips groenheeld mon. met geluid in goede staat Fl. 200,=. Tevens 64K exp. voor RAM Fl. 
150,=. Tel. 04998- 98901 

Originele Metal Gear (MSH2Ï FL 55,= (of ruilen tegen Salamander) en California Games (MSH 
1&2) FL 25,=. Allebei incl. handleiding. Tel. 033- 753180 na 19.00 uur. 

Te koop of te ruil org. Metal Gear. Tevens te koop of te ruil MCM bladen 6 t/m 14 (zijn 
nog in heel goede staat). Ook kontakt gezocht met MSH-ers. Tel. 01680- 3825 of schrijven 
naar: Eduard Marien, Kon. Wilhelminastraat 15, 4631 GE Tholen. 

Org. MSH1 cassettes Fl. 5,= p.st.: Gridtrap, Fïnders Keepers, Patience, Reflex, Feud, Jack 
The Nipper, Mutant Monty en Vacuumania. A. Loopstra, Hooglandswijk 63, 9202 AB 
Drachten. Tel. 05120- 11056 

2 Megarom spel Scramble Formation MSH-2. Ook div. M5H-1 spellen op tape. Martijn 
Maatjens, De Keulen 11, 1616 RR Hoogkarspel. Tel. 02286- 1542 (na 18.00 uur). 

Toshiba HH-10 Fl. 299,=, 2 joysticks FL 15,= p.st., vele tijdschriften (o.a. MSH-Gids, MCM, 
MSH Info, MSH Mozaik, CÜC en MSH Computing) p.st FL 6,=. Tevens spellen als Salamander, 
Nemesis UB, Maze of Galious enz. enz. Huseyin Bingol, Berfloweg 55, 7553 JM Hengelo. Tel. 
074- 435800 

Philips VG8235 MSH-2 met boeken, 25 org, spellen, 8 cartriges en veel software op 
cassette. Fl. 850,= Tel. 078- 416209 

Software: 30 MSH hits FL 40,=, Snake IT Fl. B,=, Recorder Head Alignment Kit FL 7,= en 
Timetrax Fl 12,50. Alles origineel en op cassette. Alles tesamen Fl. 60,=. Tel, QB23B- 2185 
CMichel). 

B.G.G. BASIC compiler en Hisoft Devpac (los te koop). Beiden op cassette, incl. 
handleidingen en alleen voor MSH-1. P.n.o.t.k. Tel. 045- 225787 na 16.00 uur. 

Te koop: Konami cartridge UE 
VP Blaricum. Tel. 02153- 12549 



Te koop: Konami cartridge U5A5 (MSK2) Fl. 55,=. Rodsrick Mouthaan, Elbertsveen 25, 1261 
"'"1- 125" 



Defecte Philips VG 8020 FL 75,=. Cartr. Road Fighter Fl. 35,=. 15 org. spellen op cassette 
Fl. 10,= tot Fl. 40,= p.st. Datarec. Sanyo DR 101 Fl. 75,=. Constant Walraven, 2e Heiweg 1, 
6051 LP Maasbracht. Tel. 04746- 1579. 

Te koop Konami's Maze Of Galious FL 45,=. Tel. 075- 352399. 

Originele MSH-1 software op tape: Dambusters, Desolater, Battlechopper, 737 Flightsim., 
Compilation 2 en 3. Alles voor de halve prijs. N. Herder, Ipswoersmaste 25, Brantgum. Tel. 
05197- 1859. 



T.k. MSH Toshiba Music Module HK- MU900 en Toshiba keyboard i 
P.n.o.t.k. Tel. 075- 171157. 



MÜ901 in een koop. 



Philips VG 8020 MSH-1 + datarec. + stofkap + ca. 200 spellen, div. boeken en tijdschriften 
+ Tevens Brother HR-5 printer met papier en handleiding. Dit alles voor maar Fl. 600,= L. 
Valentin, Meineszstraat 54, 7887 AR Erica. Tel. Q5914- 1527. 

Org. software op tape (19 titels) O.a. Chopper (MSH-2), Spitfire, Flight Deck, Knight Lore, 
Bounder, Wintergames, cursus BASIC enz. Liefst in een koop Fl. 160,= Alles incl. 
verpakking en handleiding. Tevens GEVRAAGD Winter Events en World Games (cass. of 
disk) Tel. 02153- 87150 (na 18.00 uur, Alfons). 

Philips VG 8020 incl. datarec, boeken en software Fl. 265,=. Usas org. FL 60,=, Org. 
Konami's: Soccer, Boxing, Kung Fu 2, Knightmare. FL 20,= p.st. Org. Flightdeck, Thexder, 
Sprinter FL 10,= p.st. Tel. 040- 417544 alleen tussen 18.00 en 20.00 uur. 

Philips VG 8020, software o.a. Rambo, Avenger, Pro Wrestling en MSH-1 handboeken. P. 
Stevelmans, secr. Bootenplein 3, Stein. Tel. 04490- 33082 

16 org. spellen. O.a. The Dam Busters, Hgper Sports 2, North Sea heli, Macross (disk), 
Flight Path 7737. Alles in een koop FL. 175,= J. Heida, Haskerhorne. Tel. 05138- 14180. 

Jeweis of Darkness (cas.), 737 Flightsim. (disk), Way Of The Tiger (cas.) en Pac Man (cas.) 
allen org. in verpakking. Te koop of te ruil tegen cartridges. Tel. 02155- 22529. 



GEVRAAGD 

Wie wil Nemesis II, Fl-Spirit of Salamander verkopen of ruilen. Ik heb o.a. Metal Gear en 
Usas. Alleen orig. Tel. 04938- 98901 (Wouter). 

Gevraagd rompacks. Ruilen tegen MSH-1 en 2 software of geld. Tevens gevraagd een 
memory mapper van 256- of 512 Kram (in module vorm). Tel. 02526- 73194 

Help! Wie heeft kaarten en tips van het spel Deep Forest. Schrijf naar: Jasper 
Brekelmans, De Volder 34, 5283 ZD Boxtel. Tel. 04116- 74105. 

Gevraagd Sony HBD-30-W diskdrive. Tel. 02993- 72131. Vragen naar Henk. 

Gevraagd Philips keyboard NMS 1160. Ruilen tegen VU-0034 64Kb geheugenuitbr. is ook 
mogelijk. W, Regeer, Berkel en Rodenrijs. Tel. 01891- 16698 na 18.QD uur. 

Te koop of te ruil gevraagd: Philips MSH modem NMS- 1255 met comm. si 
koop of te ruil gevraagd org. Konami cartrides: Circus Charlie, Comic Backerg, Hyper 

' " " " " * ' " "" " r--.il < ■ - r " J ua|»{J 



Te koop of te ruil gevraagd: Philips MSH modem NMS- 1255 met comm. software. Verder te 
koop of te ruil gevraagd org. Konami cartrides: Circus Charlie, Comic Backerg, Hyper 
Olympics 1+2, Hyper Rally, Biljards, Ping Pong, Tennis, Track & Field 1+2. Eduard Marien, 
Kon. Wilhelminastraat 15, 4691 GE Tholen. Tel. 01660- 3825 

Gevraagd Philips printer NMS 1436 voor max. FL. 250,=. Tel. 05910- 21468 (Martijn). 

Gevraagd tekst- en/of grafische adventures op cassette. B.v. Colosses en adv. van 
Rainbird. Evt. ruilen tegen andere adv,. Tel. 03240- 35830. J.P. Campfens, Amstelplantsoen 
9, 1316 GT Almere. 

Gevraagd Konami megaroms en info over 256K mapper. J.L. Leppers, Kelïenerstraat 164, 
6042 HK Roermond. 

Gevraagd Super Tritorn, Matchday II, Dragon King, Konami cartridges en gedigitaliseerde 
beelden uit films. Tel. 02155- 22529. 

Gezocht: MSH-2 machinetaal handboek. Tel. 01621- 20867. 

Gezocht: MSH-Gids nr.11 of kopieën van de listings in dit nummer. Onkosten worden 
vergoed. Peter Sloos, Asterstraat 180, 2223 VL Katwijk. Tel. 01718- 75554 

Gevraagd Song HBD30W drive. Tevens cartridge Jailbreak, Darodius en Goonies II. Tevens 
software uitwisselen op disk (MSH-2) liefst omg. R'dam. Tel. 01892- 16185, 

MSH-1 software op cassette gevraagd. Ruil mogelijk. Ik heb o.a. Flight Deck, North Sea 
Heli, HER0, Rollerbaü, Eggeland, Le Mans en 0 Shit. Danno L'e ' " ! " '" " 1 
171, 1062 CH Amsterdam. 



L'ecluse, Johan Jongkindstraat 



Gevraagd alle commando's voor 'De Sekte' van Radarsoft + tips voor level 5 van Usas van 
Konami. Evt. vergoeding. J. van Strien, Lievershil 34, 3332 RJ Zwijdrecht. Tel. 078- 123844. 

Te koop of te ruil gevraagd originele Konami cartridges: Sky Jaguar, Knightmare, Yie Ar 
Kunfu II en Mankey Academy. Ik zoek ook nag de volgende titels: Konami's Biljards, Ping 
Ponq, Track & Field 1 + 2 en Hyper Olympics 1 + 2. Tevens kontakt gezocht met serieuse 
MSH-ers, alleen disk. Ik ben in het bezit van een Philips NMS 8280. Tel. 01660- 3825. 



RUILEN 



Wie heeft Salamander of Penguin adv. (org.) en wil deze ruilen tegen Maze of Galious 
(org.). Marco Sijbesma, Texelstroomlaan 45, 1784 EA Den Helder. Tel. 02230- 33352. 

Te ruil: Fire Rescue, Speedking, Jetfighter, Red Moon (incl. clue sheet aanvraagformulier), 
Spacebusters, MS Text met handleiding tegen Konami Megarom of een org. Japanse 
rompack. Tino Kraan, Borneostraat 7, 7009 ER Doetinchem. Tel. 08340- 26812 na 16.00 uur. 

Wie, in de omg. Haarlemmermeer, wil MSH 1£B software met mij ruilen. Tel. 0B526- 73194 

Welke modem bezitter wil met mij MSH-1 software uitwisselen per telefoon? Ook CP/M 
software voor SVI-738 H'Press. Reakties aan klantnr. 312987 in ComNet. CE, Kamp, Olst). 

Wie wil compiiation disk 5 en S van de volgende spellen: Alpha Blaster, Chiller, Boardello, 
Moonrider, Panique (allen org.) ruilen tegen Maze of Galious, Metal Gear, Pinguin adv. of 
Salamander (org.) Tel. 08385- 14513 (Herman, tussen 16.30 en 18.00 uur). 

Te ruil: Penguin adv. cartridge tegen Fl- Spirit of Japanse Megarom. Tel. 055- 337360 
(Marinus). 

Aangeboden: een surfplank 'TC HUNTER' kompleet met voetbanden en 5.6 M2 zeil. Ruilen 
tegen: MSH-3 computer met ingebouwde diskdrive + software. H. Siemonsma, 
Volendamstraat 109, 8304 CE Emmeloord. Tel. 05270- 97416. 
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Mag ik Jack The Nipper ruilen tegen Spy v.s. Spy of Nemesis 2 of vechtspelletjes of 
Eggerland Mysterg. Jeroen Hensing, De Genestetstraat 4B, 2381 XM Leiden. Tel. 071- 
312750. (Red. Ja hoor, dat mag). 

SLAGZIN: Ik heb Nemesis II + Playhouse Strippoker + Vampire Killer en wil deze ruilen 
tegen Fl Spirit of üsas of Metaf Gear. Daniël Smeets, Maasbrachterweg 53, G1G1 KV Echt. 
Tel. 04754- 17G9. (Red. deze slagzin valt niet in de prijzen, probeer het eens met een 
rijmpje). 

Wie wil M5K-1 en 2 software met mij ruilen? Alleen op disk! Mart Geuze, Bram- 
Groenewegeweg 10, 4S93 PW Poortvliet. Tel. Q16G5- 2515. 

Wie wil zijn org. Nemesis II of Salamander ruilen tegen mijn 15 org. spellen op cassette 
of disk. Jaco Schoonen. Tel. 08855- 74135. 

Org. Metal Gear tegen jouw Vampire Killer en org. Salamander tegen jouw Nemesis I. Tel. 
01131- 1798 (Dies). 

Jouw Usas of Metal Gear tegen mijn Penguin adv. Ragmond Walraven, 2e Heiweg 1, B051 LP 
Maasbracht, Tel. 0474G- 1578. 

Wie wil mijn APPLE-III + harddisk + printer + monitor + software (goed werkend) ruilen 
tegen een M5K printer?? Maarten Hennekens, Bloemstraat 20, 7552 VK Hengele Tel. 074- 
436700. 

Wie wil Konami megarom ruilen tegen Soccer en Super Soccer (org. cart.) J.L. Leppers, 
Kellenerstraat 1B4, G042 KK Roermond. 

Mijn Konami Yie Ar Kung Fu-2 (org.) + Blagger (org.) tegen een van de volgende Konami's: 
liefts Knightmare of anders Roadfighter of Nemesis-2. Alleen org. Bij voorkeur omg. 
Groningen of Leeuwarden. Tel. 050- 125103 (vragen naar Nicolaas). 

Org. MSK LOGO (cart. + boek, waarde ca FL. 250,=) ruilen tegen org. Salamander of Nemesis 
2. E. Mijnsberghe, Houtem 30, 9880 Aalter, België. 

Te ruil: Super Tritorn (org.) tegen Fl- Spirit of Hgdlide III. Alleen org. Tel. 033- 754DG2 
(Richard). 

Wie wil zijn Samantha Fox strippoker, Knight Ore, Macadam Bumper of Armg Moves (org. 
cass.) ruilen tegen 2 of 3 van de volgende spellen: Dog Fighter, Lazer Bikes, Mr. Wong's 
Laopg Laundrg, Bmx sim., Mappy, Howard The Duck of Storm. A. Hoekman, Joh. 
Vermeerstraat 20, 2G81 NV Monster. 

Mijn cartridge Salamander ruilen tegen Metal Gear (wel compleet). Tevens gevraagd codes 
en geheime velden in Nemesis II en Metal Gear, tegen kleine vergoeding. Jeroen 
Wagenvoort, Welgelegenlaan 80, 3971 HP Driebergen. (Vermeid tel. nr.). 



NABESTELLINGEN OUDE 
NUMMERS MSX-GIDS: 

MSK GIDS NUMMER 17 



LISTINGS: KRIPY JACK, SCHARRELEI, DISK 
MONITOR/EDITOR, SCREEN PROTECTION, MER- 
GE MASTER, DISK DATALISTER, MOUSE 5 TE- 
KENPROGRAMMA CMSK-B), 240K SECTOR COPY 
(MSK-2) 

Verder Programmeren met Screen 1, Leer, 
Probeer en Programmeer (deel 8), Sof tware- 
recensies: Turbo 5000, Adventuretips, Eue, 
Salamander, Super Triton, Dragon iung, Mi- 
rai en Final Countdown 

MSK-GIDS NUMMER 18 

LISTINGS: DBASE (DATABASE), TOPOGRAFIE 
FRANKRIJK EN WEST-DUITSLAND, OMTREK 
EN OPPERVLAKTE, VLAGGENQUIZ, MOUSE 7 
TEKENPAKKET CM5H-2) 

Verder "Disk- en Cassettegebruik, Leer, 
Probeer en Programmeer (deel 9), Adventu- 
retips, Kaarten: Vampire, Future Knioht, 
Avenger, Spy Storu, Snowball, Bastard. Re- 
censies: Scramble Formation, Gunsmoke, Ca- 
lifornia Games, Colossus Chess 4,0, The 
Flintstones, A.R.A.M.O., Playhouse Strippo- 
ker + pokes & tips. 

Oude nummers zijn te bestellen door over- 
making van Fl. 7,^5 per exemplaar op Post- 
banknummer 5036011 t.n.v. J.Herps te Lely- 
stad. Voor België Bfr. 155 op Bankreke- 
ningnummer 235-0430464-87 bij de Generale 
Bank te Hasselt t.n.v. J.Herps, Postbus 516, 
8200 AM LELYSTAD. 



DIVERSEN 



MSK club 2oeRt actieve MSH-ers in binnen- en buitenland. Bel voor meer informatie: 
08380- 36333 (Marco) af 3G828 (Harry). 

Kontakt gezocht met MSH-2 disk gebruikers, liefst omg. Eindhoven. Tel. 04998- 98901 

Leraar (onderwijzer) van een basisschool in Vïissingen zoekt contact met leerkrachten 
die de MSK 'in de groep' gebruiken. Uitwisseling van ervaring en ontwikkelde 
programmatuur is de bedoeling. Leeftijdsindicatie: 6-12 jaar. P.P.J.M. Eppings, Markt 59, 
4331 LK Middelburg. Tel. 01880- 33226. 

Kontakt gezocht met MSH-2 diskgebruikers (liefst HB-700) uit Nederland en België. 
Tevens gezocht: computerfreaks (games) voor landelijke club. Harrg Robbertsen, 
Hogerhorst 37, 6714 LB Ede. Tel. 08380- 36828 of 08380- 36393 (Marco). 

Kontakt gezocht met M5K2-ers in Noord- Nederland om programma's te ruilen. Tel. 05910- 
21468 (Martijn). 

Ik zoek kontakt met MSK-ers die redelijk veel van adventures afweten (geen arcade 
adv.) en met mij willen corresponderen. Donaid Jansen, Middelburgstraat 28, 6415 BM 
Heerlen. 

Kontakt gezocht met MSK-2 gebruikers, liefst met Song HB-F7QQ. Tel. 05486- 166B9. 

Iemand in de buurt van Harderwijk gezocht om spelletjes voor MSK-2 te ruilen. 03410- 
14410 (Ben). 

Kontakt gezocht met gevorderde MSK-2 BftSIC (disk) programmeurs in Haren CGN). Leeftijd 
ca. 14 jr. Tevens tips gevraagd voor Salamander (zijn er ook Fl-codes?). Waar moet het 
z.g. 'Prediction' gevonden worden? J.R. Smith, Paterswolde 1, 9752 KG Haren (GN). Tel. 
05907- 4079. 



MSK-g.g. ASSEN e.o. 

Een lidmaatschap van de MSK gebruikersgroep Assen kost FL. 25,= per jaar en dat is 
inclusief het clubblad MSK NIEUWS. Inlichtingen: H. Wiering, Schoolstraat 62, 9421 SN 
Bovensmilde. 



MSK CLUBS, GEBRUIKERSGROEPEN e.d. kunnen altijd hun informatie kwijt in deze rubriek. 
Wel dient een verzoek hiertoe, plus een KORTE te plaatsen tekst, schriftelijk te worden 
ingediend. Het alleen opsturen naar ons van een cluhblad geeft geen reactie. De 
plaatsing geschiedt slechts eenmalig, daar bij stopzetting van activiteiten meestal geen 
bericht wordt gestuurd en wij dan onjuiste gegevens zouden verstrekken. Wie zijn club 
dus vaker in de MSK-Gids wil tegenkomen (en wie wil dit niet?) zal dus regelmatig hiervan 
kennis moeten geven. 



MSX-GIDS 
BEWAARBANDEN 

Voor de MSX Gids zijn nu ook opbergmappen 
verkrijgbaar. Deze bewaarbanden zijn - uiter- 
aard - geel en hebben het MSX-Gids logo 
(in zwarte opdruk) op de voorzijde en op de rug. 
In deze mappen kunnen minstens 6 exemplaren 
van de Gids opgeborgen worden. De bladen 
worden in de map vastgezet met speciale 
(bijgeleverde) metalen klemmen. Hierbij wordt 
het blad niet beschadigd! De mappen worden 
geleverd in een bijbehorende verzenddoos en 
de prijs van deze bewaarband is ƒ 19,95 per 
stuk. Deze prijs is inclusief BTW en verzend- 
kosten. 

De banden zijn te bestellen door overmaking 
van ƒ 1 9,95 per stuk op Postbanknummer: 
5036011 t.n.v. J. Herps te Lelystad onder ver- 
melding van 'bewaarband'. 



Voor België is dit Bfr. 365 op bankrekening 
235-0430464-87 bij de Generale Bank te 
Hasselt t.n.v. J. Herps, Postbus 516, 
8200 AM Lelystad onder vermelding van 'be- 
waarband'. 



LISTING CONTROLE PROGRAMMA 2 



DEZE LISTI NGTESTER IS VAN TOE- 
PASSING OP DE LISTINGS VANAF 
MSX-GIDS NR. 3 

De listingtester is een hulpmiddel voor de lezers die de 
programma's uit ons blad zelf intikken. Achter de pro- 
gramma's, die met deze tester gecontroleerd kunnen 
worden, staat een controletelling. Door nu zo'n pro- 
gramma met deze tester te controleren wordt even- 
eens een telling verkregen die -per regel- overeen 
moet komen met de telling in het blad. Zijn de getallen 
achter de regelnummers hetzelfde, dan is de kans erg 
groot dat deze regel goed is overgenomen. Zeker is dit 
echter niet, want wanneer bijvoorbeeld twee letters in 
een regel worden omgewisseld dan is de telling wel 
goed, maar kan het programma toch fouten opleveren. 

WERKWIJZE 

Eerst moet dit controleprogramma FOUTLOOS over- 
genomen worden en worden weggeschreven op cas- 
sette of diskette als ASCII-file met de volgende 
opdrachten: 

SAVE"CAS:TESTER", A (voor cassette). 

SAVE"A:TESTER",A (voor diskette). 

Dit hoeft slechts éénmaal te gebeuren; verder kan dit 
programma voor alle listings worden gebruikt. 

Vervolgens moet het te controleren programma wor- 
den ingetikt. Is dit gedaan, dan het programma eerst 
wegschrijven naar cassette of diskette en niet eerst 
RUNen, want bij sommige fouten kan het programma 
blijven hangen en bent u het kwijt; alles moet dan 
opnieuw worden ingetikt. Nu kan het controleprogram- 
ma worden ingelezen en achter het te controleren pro- 
gramma worden geplaatst met de opdracht: 

MERGE"CAS:TESTER" (voor cassette). 

MERGE"A:TESTER" (voor diskette). 

Vervolgens kan de controle worden gestart met: 
RUN 65000. 

Let erop de fouten te corrigeren in het originele pro- 
gramma. Na het laden van het controleprogramma 
staat dit namelijk achter het eigenlijke programma en 
vormt nu één geheel. In sommige gevallen kan dit extra 
stuk programma problemen geven b.v. met de geheu- 
genruimte! 

REM-regels worden niet gecontroleerd. Mocht het 
voorkomen dat REM-regels wel exact moeten worden 
overgenomen, dan zal dit bij het desbetreffende pro- 
gramma worden vermeld. Bij kleine of eenvoudige pro- 
gramma's wordt geen controletelling geplaatst. Ook 
worden meestal geen tellingen geplaatst bij program- 
ma's die deel uitmaken van een artikel. Deze program- 
ma's (of stukken programma) verschijnen ook meestal 
niet op de cassette of diskette van de programma-ser- 
vice. 



Sommige programma's hebben een eigen controle. Bij 
deze programma's ontbreekt de controletelling of staat 
slechts een telling voor het gedeelte dat niet door het 
programma zelf wordt gecontroleerd. 
(Meestal BASIC-gedeeltes bij een machinetaal pro- 
gramma). 



65000 • *********************** 

65010 ' * LISTIFG TESTER 2 * 

65020 1 * Door Alfred Debels * 

65030 1 * <c)1986 De MSX Gids * 

65040 9 * Amsterdam * 

65050 * *********************** 

65060 1 

65070 CLS: CLEAR: SCREEF 0:VIDTH 40: PR 
FT 

65080 PR I ITT "Weergave via beeldscher, 

of printer?" 

65090 PRIFT : PR I FT " B of P?: " 

65100 X$=IFKEY$:IF X$<>"B" AFD X$<>"P 
" THEF 65100 

65110 START=32769! 

65120 RG=START+2 : T=0 

65130 REM 

65140 VR=PEEK (START > +256*PEEK (START+1 
) 

65150 FR=PEEK(RG)+256*PEEK<RG+1) 

65160 IF VR=0 THEF 65270 

65170 IF FR>=65000! THEF 65270 

65180 S=0:FOR I=RG+2 TO VR-1 

65190 A=PEEK(I) 

65200 IF A=143 THEF I=VR: GOTO 65220 

65210 S= S+A:FEXT 

65220 S-SMOD256 

65230 T-T+S 

65240 IF XS= M B" THEF PRIFT USIFG "Reg 
el : ##### - ###" ; FR, S: GOTO 65260 

65250 LPRIFT USIFG "Regel : ##### ~ ### 

ft . jr]£ g 

65260 START-VR: RG=VR+2:GOTÖ 65140 
65270 IF X$="P" THEF 65290 
65280 PRIFT: PRIFT "Totaal: ";T: EFD 
65290 LPRIFT "Totaal: ";T: EFD 



Er staat geen 'zelftest' meer bij dit controleprogramma 
daar er afwijkingen in de telling kunnen voorkomen 
wanneer de controle via het beeldscherm plaatsvindt 
of wanneer het programma al een keer is geRUNd. Om 
dezelfde reden dient het te controleren programma ook 
alleen ingeladen te worden voor de controle en moet 
men NIET eerst RUN geven. Na het RUNen zal de con- 
trole - bij sommige regels - een andere waarde geven!! 

Let goed op de DATA-regels. Hier worden de meeste 
fouten gemaakt. Bij het omwisselen van getallen in 
deze DATAregels wordt wel een juiste telling gegeven, 
maar het programma zal niet (of onjuist) werken! 
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de veste 16-85 8231 jh lelgstad 

tel:03200-33365 
let op de softpost amsterdam 
is verhuisd en heeft een 
nieuwe naam gekregen, 

the softpost heet nu 
software centre lelgstad 
op 24 september openen wij 
weer feestelijk de deuren met 

leuke aanbiedingen, 
wij leveren voor alle merken 

computers b.v.amiga.atari, 
sega.msx^ó^nintendo.ms-dos 
spectrum.etc.etc.etc. 
Wi] zijn geopend van di. t/m za 
10.00 tot 18.00 uur 
koopavond geopend 
bel voor meer informatie 
tel:03200-33365 



Dammen voor MSX 1 & 2 

5 Levels 

Saven stellingen 

_ Een programma van G.P. Versluis 

Zetten terugnemen cc) i988 msk Gids Lelystad 

Analyse 

Wisselen speelkleur 



Pr- ijs. diskette: F"L_ 32,50 
Pr^ijs cas-se-t-te: FL- 29,5Ü 

Dit programma is verkrijgbaar door het bedrag over te maken op Postbanknummer 
503G011 t.n.v. J. Herps te Lelystad. 

Voor België: Bfr. 650 voor de diskversie of Bfr. 590 voor de cassetteversie op 
Bankrekeningnummer 235-0430464-87 bij de Generale Bank te Hasselt t.n.v. J. Herps, 
Postbus 516, 8200 AM Lelystad. 

Het spel is ook verkrijgbaar bij Timesoft Amsterdam en Software Centre Lelystad. 



